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

##</code><code>##

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