note
MeowChow
You can get about a 30% performance improvement over the original naive code with the following:
<TABLE><tr><td bgcolor="#CCCC99"> </td><td> </td><td><code>
my ($first, $second) = @_;
return 0 if @$first != @$second;
my $i = 0;
$second->[$i++] ne $_ && return 0 for @$first;
return 1;
</code></td></tr></TABLE>
<pre>
<a href="/index.pl?node=MeowChow"> MeowChow </a>
s aamecha.s a..a\u$&owag.print</pre>
156564
156605