open (FILE, "somefile.txt") or die;
my @records = <FILE>;
close(FILE);

##</code><code>##

my @records;
open (FILE, "somefile.txt") or die;
while (<FILE>) {
   push @records, $_;
}
close(FILE);

##</code><code>##

my @records = split(/\r/,$records);