$ perl slurp_bench.pl TD3 30 Reading file 'TD3' 30 times with each routine. s/iter slurp_for slurp_join slurp_local slurp_FS slurp_for 4.81 -- -8% -90% -92% slurp_join 4.41 9% -- -89% -91% slurp_local 0.485 890% 808% -- -21% slurp_FS 0.385 1150% 1045% 26% -- 99299497 slurp_local 99299497 slurp_join 99299497 slurp_for 99299497 slurp_FS $ perl slurp_bench.pl TD2 300 Reading file 'TD2' 300 times with each routine. Rate slurp_for slurp_join slurp_local slurp_FS slurp_for 2.30/s -- -11% -91% -91% slurp_join 2.59/s 13% -- -89% -90% slurp_local 24.5/s 968% 849% -- -9% slurp_FS 26.9/s 1071% 940% 10% -- 9027227 slurp_local 9027227 slurp_join 9027227 slurp_for 9027227 slurp_FS $ perl slurp_bench.pl TESTDATA 500 Reading file 'TESTDATA' 500 times with each routine. Rate slurp_for slurp_join slurp_local slurp_FS slurp_for 25.8/s -- -9% -90% -91% slurp_join 28.3/s 10% -- -89% -90% slurp_local 248/s 860% 775% -- -12% slurp_FS 281/s 990% 893% 13% -- 820657 slurp_local 820657 slurp_join 820657 slurp_for 820657 slurp_FS Reading file 'TDSmall' 10000 times with each routine. Rate slurp_for slurp_join slurp_FS slurp_local slurp_for 3774/s -- -12% -67% -69% slurp_join 4292/s 14% -- -62% -64% slurp_FS 11364/s 201% 165% -- -6% slurp_local 12048/s 219% 181% 6% -- 3391 slurp_local 3391 slurp_join 3391 slurp_for 3391 slurp_FS Reading file 'TDTiny' 25000 times with each routine. Rate slurp_FS slurp_for slurp_join slurp_local slurp_FS 10504/s -- -3% -8% -24% slurp_for 10776/s 3% -- -6% -22% slurp_join 11416/s 9% 6% -- -17% slurp_local 13736/s 31% 27% 20% -- 198 slurp_local 198 slurp_join 198 slurp_for 198 slurp_FS