my @numbers = (0..9);
foreach my $i (0..$#numbers) {
	print $numbers[$i];
	stopped($i),last if $i > 4;
}

sub stopped {
	my $index = shift;
	print "Stopped at $index\n";
}