my @good = grep {
    my $yes = $_;
    !grep $_ == $yes, @notgood; 
} @goodarray;