time perl -E 'open($f, ">", "report.txt"); print $f "1" for (1..10000000);'

real	0m1.037s
sys	0m0.004s

time perl -E 'open($f, ">", "report.txt"); print $f "11" for (1..5000000);'

real	0m0.548s
sys	0m0.016s



perl -E 'open($f, ">", "report.txt"); print $f "1111111111" for (1..1000000);'

real	0m0.130s
sys	0m0.020s