use Data::Dumper;
$Data::Dumper::Indent = 1; # fuer die schoenheit
.....
print Dumper($datenref); # gibt den inhalt der datenstruktur am bildschirm aus