Select Code to Download

@a1 = qw(1 2 2 3);
@a2 = qw(1 2 3 3);

use strict;

...

my @only_a2 = map { dec $a1{$_} ? () : $_ } @a2;
print "Only in \@a2 : @only_a2\n";