Select Code to Download

C:\test>perl -E"$c=0; map map( ++$c, 1..1e3 ), 1..1e3; say 'check mem'
+;<>"
check mem
49 MB

C:\test>perl -E"$c=0; for( 1..1e3 ) { ++$c for 1..1e3 }; say 'check me
+m';<>"
check mem
2.5MB