use Tie::IxHash;

  my @Loh;

  for (1..5) {
    my %hash;
    tie %hash, 'Tie::IxHash';
    push @LoH, \%hash;
    # a separate instance of the lexical %hash
    #   is created each time through the loop
  }

##</code><code>##

  for (qw/Just another Perl hacker/) {
    $LoH[0]{$_} = $_;
  }
  print join(' ', keys %{ $LoH[0] }), "\n";