for my $k ( sort keys %hash ) { my @arr = @{ $hash{$k} }; if ( $#arr >= 0 ) { # array im string interpolieren lassen, sonst kommt nur das erste Element zur Anzeige... printf ( "%-35s : %-80s\n", $k, "@arr" ); # oder verwende join() } }