my @lines;
{
  open my $in, '<', 'list.txt' or die "Fehler beim Öffnen der Eingabedatei: $!\n";
  @lines = <$in>;
}