If you want to know the current element in a foreach loop, you could easily switch to a for loop. In this case $i is your array index.

for ($i = 0; $i < scalar @array; $i++) {
    ...
}
[download]

Here's something else you could do. As always, there's more than one way to do it.

sub removeJunk {
    my @stuff = @_;  my (@keepers);
    while (my $value = pop @stuff) {
        @keepers = (@keepers, $value) if ($value =~ /^test\s/);
    }
    return @keepers;
}
[download]

If you have a really big array, you will want to use references.