Was genau gibt er denn nicht aus?
DU versuchtst komplexe Datenstrukturen mit print auszugeben. Das klappt so nicht. DU kannst Data::Dumper verwenden oder musst dir von Hand noch jeweils Schleifen bauen die die komplexen Datenstrukturen ausgeben.
Berwende dazu unbedingt use strict; und use warnings; da die das eine Menge Arbeit erspart. Diese hätten dich übrigens auch auf dieses Problem aufmerksam gemacht ;)

Grüße, pktm