# warum nicht direkt den Key nehmen?
foreach my $key (sort keys %$hash_ref)
{
  print substr($key . '.' x 30,0,30) . ' => ';
  if ($key eq 'bic_candidates')
  {
    print "(Untermenge wie folgt:)\n";
    # du willst doch mit dem Hashkey zugreifen,
    # nicht mit der Nummer des "Keys"-Array
    print "   $_\n" for( @{ $hash_ref->{$key} } );
  }
  else
  {
    print (defined $hash_ref -> {$key} ? (length $hash_ref -> {$key} > 65 ? substr($hash_ref -> {$key},0,60) . '...' : $hash_ref -> {$key}) : 'NOT DEFINED');
  }
  print "\n";
}