use strict;
use warnings;

my @array = (9 .. 11);

foreach my $row (@array) {
	&routine($row);
}

sub routine {
	my $row = shift;
	if ($row != 10) {
		print "stuff";
	} else {
		last;
	}
}