Select Code to Download

my %mapping;
while (<>) {
...
  my @aliases = sort @{$mapping{$word}};
  print "$word=", join(", ", @aliases), "\n";
}

my %mapping;
while (<>) {
...
  my @aliases = sort keys %{$mapping{$word}};
  print "$word=", join(", ", @aliases), "\n";
}