open (FILE, "$record") or die "can't open $record: $!";
my @record = reverse <FILE>;
close FILE;