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