foreach my $hash (@standorte) { foreach my $key (keys %$hash) { if ( $key =~ /stand/i ) { print "
"; print keys %$hash; print " --- "; print values %$hash; } } }