# pack the table.
my $packedaTable = pack('J',$aTable);
print Dumper($packedaTable);
if(unpack('J',$packedaTable) == $aTable) 
    {print "I know how to pack this table.\n";}
else
    {die "I dont know how to pack this table";}