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