my $a = 66778899;
$a = '0x'.$a;
print $a;
print hex $a;