my @foo = (1,2,2,1) x 5; my @bar = (2) x 20; for (my $i = 0; $i < @foo; $i++) { print "$i\n"; if ($foo[$i] % $bar[$i]) { splice @foo, $i, 1; $i-- } } print "@foo\n";