foreach $i (@f) {
  @n = grep {$_ % $i != 0 || $_ == $i} @n;
}