Another opportunity to promote Data::Dumper =)

use Data::Dumper;
local $Data::Dumper::Useqq = 1; # print non-printable chars
print Dumper \%table;
[download]

So, whenever perl seems to be wrong, first debug yourself what data you have.