#!/usr/bin/perl

use warnings;
use strict;

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]};

my $i;
foreach $i (keys(%test)) {
    print "$i \t $test{$i}\n";
}