my %disabled = map {($_, 1)} @list2; my @active = grep {!$disabled{$_}} @list1;