my $ra_list = getList();
my $line1 = $ra_list->[0];

sub getList {
  my @list;
  tie(@list, 'Tie::File', '/path/file', memory => 0, mode => O_RDONLY);
  return \@list;
}