sub x3{ 1 .. 1e6 }
print time; $r = [ x3() ]; print time;