String Perl

#!usr/bin/perl
use warnings;
use strict;
my $integer = 1427;
printf( "%#X\n", $integer );