Help for this page
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; }
www.com | www.net | www.org
No recent polls found