in reply to how long does for(1..$n) take?
my $start = time; while(time < $start + 60) { # code goes here } [download]