I wouldn't use the splice construct inside of a loop iterating over the array. It'll get rid of the right elements, but it'll keep the array the same size due to autovivification at the end. (This may depend on the version of Perl.) Running under strict exposes this:

my @array = (0 .. 9);
$" = " ";

for my $i (0 .. $#array) {
    splice @array, $i, 1 if $array[$i] == 5;
    print "$i: @array\n";
}
print "Array is ", scalar @array, " elements long.\n";
[download]

Bang, uninitialized value and @array is 9 elements long at the end. Yikes.