Select Code to Download

sub o {
  my ($a, $w) = @_;
...
  my $v = join "", values %m;
  map { eval "tr/$v/$k/"; $_ } sort map { eval "tr/$k/$v/"; $_ } @$w;
}

sub o {
  my ($a, $w) = @_;
...
  map { eval "tr/$v/$k/"; $_ } sort map { eval "tr/$k/$v/"; $_ } @$w;
}