little hex to dec perl script