Perl comparaison de tableaux!!!

Salut,

lami20j@debian:~/trash$ cat ccm_comparer_tableau.pl
#!/usr/bin/perl
use strict;use warnings;

my @tab1=qw/ a b c /;
my @tab2=qw/ a d c e /;

my $x=0;
my $y=0;

while($x<=$#tab1){
        while($y<=$#tab2){
                if($tab1[$x] eq $tab2[$y]){
                        print "$tab1[$x] égal $tab2[$y]\n";
                }
                ++$y;
        }
        ++$x;
        $y=0;
}
__END__
lami20j@debian:~/trash$ perl ccm_comparer_tableau.pl
a égal a
c égal c

use strict;
use warnings;
use Data::Dumper;

my @a1 = (1, 2, 4, 6, 7, 8);
my @a2 = (1, 2, 3, 5, 6, 7);
print join "\t", @a1;
print "\n";
print join "\t", @a2;
print "\n";
print "\n";

print "###########################\n";
print "Elément dans un tableau et pas dans l'autre \n\n";
&different (\@a1,\@a2);
print "###########################\n";
print "Elément dans un tableau et pas dans l'autre \n\n";
&different (\@a2,\@a1);

print "###########################\n";
print "Eléments commun au 2 tableaux \n\n";

my %seen;
my @common = grep {$seen{$_}++} @a1 , @a2;

print Dumper @common;
print "\tNb Commun : ".scalar @common ."\n";

print "###########################\n";

sub different{
my $ref1=shift;
my $ref2=shift;

my @a1=@$ref1;
my @a2=@$ref2;

my %a;
map($a{$_}=1,@a1); # create %a with elements from @a1
my @diff=grep(!defined($a{$_}),@a2); # returns those elements of @a2 that +don't
# have a hash element in %a1 therefore they
# do not exist in @a1.
print Dumper @diff;

print "\tNb Diff : ".scalar @diff ."\n";

}