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