while (($key,$val) = each %TEST) {
    print $key, ' = ', unpack('L',$val), "\n";
}