$var = unpack "H4", $var;
my $decimal = hex($var);