Re^2: comparing lists and getting an exemtion report

[brx]

# Assuming @list_a and @list_b

my %b;
$b{$_} = 1 foreach (@list_b);

my @list_c = grep { not $b{$_} } @list_a;