use strict;
use warnings;
use 5.010;

my $hash1 = { foo => 1 };   # Hash Referenz
my %hash2 = ( bar => 2 );   # Hash

my %super = (
    'hash1' => $hash1,      # Hash Referenz direkt nehmen
    'hash2' => \%hash2,     # benannten Hash mit Referenz übernehmen
);


for my $index ( 1, 2 ) {
  # generiere hash name
  my $wanted_hash = "hash" . $index;
  say "$wanted_hash:";

  # "Abkuerzung" zum gesuchten Hash
  my $hRef = $super{$wanted_hash};

  # Durch Hash iterieren
  for my $k ( keys %$hRef ) {
    say "$k : ", $hRef->{$k};
  }
}