Select Code to Download

my @arr= qw (10 10 20 0x47 1 30 45 45);

use strict;
use warnings;
...
    my $num = sprintf "%d", $element;
    print "$num\n";
}

10
10
...
30
45
45

use strict;
use warnings;
use v5.10.1;
my $hexnum = sprintf ("%d", 0x47);
print "$hexnum\n";