Trouver si un terme est dans une liste

# trouver les elements qui se trouve dans la liste A mais pas dans la liste B

my %deja_vu_dansB;
my @que_dans_A;


@deja_vu_dansB{@B} = ();

foreach $elem (@A) {
  push @que_dans_A, $elem unless exists $deja_vu_dans_B{$elem};
}

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

my @A = qw/mot alphabet dans je/;
my @B = qw/je dans arbre perl je dans/;
my %union;

$union{$_}++ foreach (@A,@B);

my @union_A_B = sort keys %union;

print "\@A : @A\n\@B : @B\n";
print "A+B sans doublons : @union_A_B\n";

lami20j@debian:~$ perl union.pl
@A : mot alphabet dans je
@B : je dans arbre perl je dans
A+B sans doublons : alphabet arbre dans je mot perl