my $n=...;
for(1..$n){algo($n)}