my @liste;

sub lade_liste {
  my $pfad=shift;
  my @l;
  if(open (my $fh, '<', $pfad)) {
    @l=<$fh>;
    close($fh);
  }
  return @l;
}

@liste=lade_liste('Test.txt');
if(defined(@liste)) {
  if(scalar(@liste)) {
    # mach was
  }
  else { warn "Datei war leer, kann nicht weiter machen!" }
}
else { warn "Datei konnte nicht geladen werden ($!)" }

# usw usf