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