my @all;

my %m1;
$m1{'eins'} = 1;
$m1{'zwei'} = 2;

my %m2;
$m2{'eins'} = 11;
$m2{'zwei'} = 12;

@all[0] = %m1;
@all[1] = %m2;


print $m1{'eins'} . "\n";
print $m1{'zwei'} . "\n";

my %test = @all[0];
print %test;
print "\n";
print %test . "\n";
print $test{'eins'} . "\n";