sub my_sub($) {
	... do something EASY and fast ...
}

foreach my $i (0 .... $a_bazillion) {
	my_sub($some_value);
}