#!/usr/bin/perl -l
# vi:ts=4 sw=4 et:
use strict;
use warnings;

my $var = bless( {
                 'checks' => [
                             'length', 'bank_code', 'account_number'
                           ],
                 'account_number' => '12345678',
                 'balance' => '92',
                 'bic_candidates' => [
                                     bless( {
                                              'city' => 'Frankfurt am Main',
                                              'sampleurl' => undef,
                                              'wwwcount' => '0',
                                              'bic' => 'INGDDEFFXXX'
                                            }, 'BICStruct' ),
                                     bless( {
                                              'city' => undef,
                                              'sampleurl' => 'second',
                                              'wwwcount' => '12',
                                              'bic' => 'INGDDEFF'
                                            }, 'BICStruct' )
                                   ],
                 'account_check' => 'passed',
                 'iban' => 'DE12345',
               }, 'IBANCalcResStruct' );



for my $k ( keys %$var ) {
    if ( $k eq 'checks' ) {
        # via checks ist ein array erreichbar

        # alle elemente verarbeiten
        for my $e ( @{ $var->{$k} } ) {
            print "$k -> $e";
        } 

        # einzelnes element ansprechen
        print "$k -> ", $var->{$k}->[1];
    }
    elsif ( $k eq 'bic_candidates' ) {
        # hier ist ein array of hashes erreichbar
        # jede enthaltene hash-referenz ist ein Objekt des Typs BICStruct

        for my $e ( @{ $var->{$k} } ) {
            # $e enthaelt ein Objekt des Typs BICStruct auf Basis eines Hash
            # dereferenziere wie Hash
            print $e;
        }
    }
    else {
        print $k;
        }
}


__END__