Use of uninitialized value in printf ...

foreach my $key (sort keys %hash) {
        printf ("%-35s : %-80s\n", $key, @{$hash{$key}});
}

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()
  }
}

if( @arr ){ 
    #... 
}

if( @{ $hash{$k} } ){
    # ...
}

if( @{ $hash{$k} } ){
  ....
}

$VAR175 = '[key]';
$VAR176 = [
            undef
          ];
$VAR177 = '[key]';
$VAR178 = [
            'value'
          ];

for my $k ( sort keys %hash ) {

    # Elemente, die 'undef' sind, auf '' setzen
    #my @arr = map{ defined $_ ? $_ : '' } @{ $hash{$k} };
    # oder mittels grep nur die "defined" Elemente nehmen
    my @arr = grep { defined $_ } @{ $hash{$k} };

    if ( @arr ) {
        printf "%s %s\n", $k, "@arr";
    }
}

sort{ $hash{$a} cmp $hash{$b} or $a cmp $b }keys %hash