use Array::FileReader;  
use Slurp; 
use Benchmark 'cmpthese';
use File::Content;
	
cmpthese(-1, {
    Array  =>  'tie @foo, Array::FileReader, "test.txt"',
    Slurp  =>  'my @array = Slurp::to_array("test.txt")',
    do  =>  'do {local $/, "test.txt"}||die ($!)',
    Content => 'my $o_fil = File::Content->new("test.txt")',
});

__END__
            Rate     Slurp   Content     Array        do
Slurp     3.94/s        --     -100%     -100%     -100%
Content    997/s    25229%        --      -82%     -100%
Array     5467/s   138774%      448%        --      -99%
do      466126/s 11839502%    46643%     8425%        --