my @keys = keys (%$hash_ref);
foreach my $k (sort {lc $keys[$a] cmp lc $keys[$b]} 0..$#keys) {
        print substr($keys[$k] . '.' x 30,0,30) . ' => ';
        if ($keys[$k] eq 'bic_candidates') {
                print "(Untermenge wie folgt:)\n";
                for my $e ( @{ $hash_ref->{$k} } ) {
            print "$e\n";
        }
        }
        elsif ($keys[$k] eq 'checks') {
                print "(Untermenge wie folgt:)\n";
                for my $e ( @{ $hash_ref->{$k} } ) {
                        print "$k -> $e\n";
                } 
        }
        else {
                print (defined $hash_ref -> {$keys[$k]} ? (length $hash_ref -> {$keys[$k]} > 65 ? substr($hash_ref -> {$keys[$k]},0,60) . '...' : $hash_ref -> {$keys[$k]}) : 'NOT DEFINED');
        }
        print "\n";
}

account_check................. => passed
account_number................ => 648479930
account_validation............ => Methode C1, Variante 1, Konto 0648479930, BLZ 50010517, Pr³f...
account_validation_method..... => C1
alternative_account_number.... => NOT DEFINED
alternative_bank_code......... => NOT DEFINED
balance....................... => 78
bank.......................... => ING-DiBa
bank_address.................. => NOT DEFINED
bank_code..................... => 50010517
bank_code_check............... => passed
bank_url...................... => NOT DEFINED
bic_candidates................ => (Untermenge wie folgt:)

bic_plausibility_check........ => NOT DEFINED
branch........................ =>
branch_code................... => NOT DEFINED
checks........................ => (Untermenge wie folgt:)

country....................... => DE
data_age...................... => 20090309
formatcomment................. => B = sort code (BLZ), C = account No.
iban.......................... => DE48500105170648479930
IBANformat.................... => DEkk BBBB BBBB CCCC CCCC CC
length_check.................. => passed
result........................ => passed