use strict;

my $name = 'test';
my %test;

push @{$test{"$name"}}, { name => 'me',age => 'here' };
push @{$test{"$name"}}, { name => 'meAgain',age => 'Nowhere' };

push @{$test{"two"}}, { name => 'you',age => 'there' };
push @{$test{"two"}}, { name => 'AndYou',age => 'AndThere' };

my ($s,$u,$n);
foreach $s (keys %test)
{
    foreach $u ( 0..$#{$test{$s}} )
    {
        foreach $n (keys %{$test{$s}[$u]}) 
        {
            print "$s $u $n: $test{$s}[$u]{$n} - \n";
        }
    }
}
__END__
test 0 name: me - 
test 0 age: here - 
test 1 name: meAgain - 
test 1 age: Nowhere - 
two 0 name: you - 
two 0 age: there - 
two 1 name: AndYou - 
two 1 age: AndThere -