Select Code to Download

  use Tie::IxHash;

  my @Loh;
...
    # a separate instance of the lexical %hash
    #   is created each time through the loop
  }

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