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";