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