your_function(\@lis_array);

##</code><code>##

open my $kerlis, '<', $lis_file or die $!;
your_function($kerlis);

sub your_function {
  my $fh = shift;

  while (<$fh>) {
    # do something
  }
}