use strict;
use warnings;
$|++;
my @lines;

for my $try (1..3)  {
	print "Try $try\n";
	my $start=time;
	@lines=();
	
      # 6 million ways to die, choose one:
      
      # my_slurp(\@lines);
	# my_while(\@lines);
	# my_file(\@lines);
	
      print "Took ".(time-$start)." seconds.\n";
}

sub my_file
{
  my ($line) = @_;
  open my $fh, "D:\\Perl\\DevLib\\Scrabble\\dict.txt";
  @{$line}= <$fh>;
  close($fh);
}

sub my_slurp {
	my ($line) = @_;
	local $/;
  	open my $fh, "D:\\Perl\\DevLib\\Scrabble\\dict.txt";
	@{$line}=split /\n/,<$fh>;
	close($fh);
}

sub my_while {
	my ($line) = @_;
 	open my $fh, "D:\\Perl\\DevLib\\Scrabble\\dict.txt";
 	push @$line,$_ while <$fh>;
	close($fh);
}
__END__
my_file:
Try 1
Took 13 seconds.
Try 2
^C (I killed it after 5 minutes.)

my_while:
Try 1
Took 4 seconds.
Try 2
Took 10 seconds.
Try 3
Took 9 seconds.

my_slurp:
Try 1
Took 2 seconds.
Try 2
Took 6 seconds.
Try 3
Took 5 seconds.