# from wslib.pm

sub gencli {

  open FH, '<', $gencli or die "Can't open $gencli $!";
  flock (FH, 1) or die "Can't lock $gencli  for reading: $!";
  my @gencli = <FH>;
  close FH;

  return \@gencli;

}

#from script, subroutine call
my $gencli_scalar = gencli();
my @gencli = @{ $gencli_scalar };