use strict;
use warnings;

my @values = ( "05F9AD", "F4EC9E", "0005" );
foreach my $value (@values) {
    my $decval = hex($value);
    printf "Hex value 0x%08lx = %ld (decimal)\n", $decval, $decval;
}