in reply to Re: (Efficiently) comparing arrays
in thread comparing arrays

You can get about a 30% performance improvement over the original naive code with the following:
  
    my ($first, $second) = @_;
    return 0 if @$first != @$second;
    my $i = 0;
    $second->[$i++] ne $_ && return 0 for @$first;
    return 1;

[download]
   MeowChow                                   
               s aamecha.s a..a\u$&owag.print

In Section Seekers of Perl Wisdom