my @c = (1..20);
for ($i = 0; $i <= $#c; $i++) {
    if ($c[$i] >= 5 && $c[$i] <= 10) {
        splice(@c,$i,1); $i--;
    }
}
print join ' ', @c;

##</code><code>##

1 2 3 4 11 12 13 14 15 16 17 18 19 20

##</code><code>##

my @c = ("bob", "bob", "martha", "bob");
for (my $i = 0; $i <= $#c; $i++) {
    if ($c[$i] eq "bob") {
        splice(@c,$i,1); $i--;
    }
}
print join ' ', @c;