use strict;
use warnings;
use 5.010;                         # Minimum Perl-Version für Feature say 

# Festlegung der Variablen für Quelldatei
my $filename = 'meine-datei.txt';  # Dateiname
my $fh;                            # Dateihandle
my $line;                          # enthält später eine gelesene Zeile der Quelldatei

# Datei im Lesemodus öffnen
open ($fh, '<', $filename) or die "Datei kann nicht geoeffnet werden: '$!'";

# Eine Zeile einlesen
while ( $line = <$fh>) {

   # Zeilenende entfernen
   chomp $line;

   # wieder mit Zeilenumbruch im Terminal ausgeben
   say "Gelesen wurde: ", $line;

} # Schleifenende

close ($fh) or die "Datei kann nicht geschlossen werden: '$!'"

#!/usr/bin/perl

use warnings;
use strict;

my $fh;
open($fh, "<", "test.txt");
my @a = <$fh>;
close($fh);

my $i;
foreach $i (@a) {
    print $i;
}