Select Code to Download

#! perl
use strict;
...
my $found  = @array1 == @array2 && ! pairfirst { $a ne $b } mesh @arra
+y1, @array2;

print $found ? 'Match' : 'No match', "\n";

18:12 >perl 1380_SoPW.pl
Match

18:12 >