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";
        }
        }
        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................ => 12345678
account_validation............ => Methode C1, Variante 1, Konto 12345678, BLZ 12345678, Pr³f...
account_validation_method..... => C1
alternative_account_number.... => NOT DEFINED
alternative_bank_code......... => NOT DEFINED
balance....................... => 79
bank.......................... => ING-DiBa
bank_address.................. => NOT DEFINED
bank_code..................... => 12345678
bank_code_check............... => passed
bank_url...................... => NOT DEFINED
bic_candidates................ => (Untermenge wie folgt:)

bic_plausibility_check........ => NOT DEFINED
branch........................ =>
branch_code................... => NOT DEFINED
checks........................ => ARRAY(0x2087968)
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