# "Subtract" (remove) elements of @minus from @list:
    my %dup;
    @dup{@minus}= ();
    @list= grep { exists $dup{$_} } @list;