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


##</code><code>##

use strict;
use warnings;
use v5.10.1;

my @arr= qw (10 10 20 0x47 1 30 45 45);
my @converted = grep $_ !~ /'/, @arr;
foreach my $element (@converted) {
	my $num = sprintf "%d", $element;
	print "$num\n";
}

##</code><code>##

10
10
20
Argument "0x47" isn't numeric in sprintf at num.pl line 8.
0
1
30
45
45

##</code><code>##

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