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