#! perl
use strict;
use warnings;
use List::Util      qw( pairfirst );
use List::MoreUtils qw( mesh );

my @array1 = qw( a e i o u );
my @array2 = qw( a e i o u );
my $found  = @array1 == @array2 && ! pairfirst { $a ne $b } mesh @array1, @array2;

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

##</code><code>##

18:12 >perl 1380_SoPW.pl
Match

18:12 >