sub returnhash {
   my %hash1 = (1 => 3);
   my %hash2 = (2 => 5);
   return [\%hash1, \%hash2];
}

my $refs = &returnhash;
print $refs->[0]->{1};   # 1. Array Element, Schlüssel "1"
print $refs->[1]->{2};   # 2. Array Element, Schlüssel "2"