$count = shift;

for($runs = 1; $runs <= $count; $runs++){
	&func_"$runs";
}

sub func_1{}
sub func_2{}
sub func_3{}
# etc, etc, etc.