sub getArrayHash{ $hash1s->{$key1}->{$key2} = $hash1; $hash2s->{$key1}->{$key2} = $hash2; $hash3s->{$key1}->{$key2} = $hash3; . . . $hash20s->{$key1}->{$key2} = $hash20; push( @hash_array, $hash1s, $hash2s, $hash3s, ..., $hash20s); return \@hash_array; }