Quote

die erste frage wäre, ob es eine möglichkeit gibt dieses problem etwas eleganger zu lösen.

1
2
3
4

my %qvals;
for ( qw/co_id maindirnum customer_id custcode/ ) {
     $qvals{$_} = {'print'=>'false','value'=>''value"};
}

Quote

Zudem suche ich nach einer funktion die so ähnlich funktioniert wie print_r in php. Ich möchte nämlich überprüfen ob die struktur des hashes so aussieht wie ich mir das vorgestellt habe. Gibt es einen befehl der den ganzen hash mit allen unterhashes ausgeben kann?

1
2

use Data::Dumper;
print Dumper \%qvals;