#!\usr\bin perl
use warnings;
use strict;
use diagnostics;
use feature 'say';

open my $FILE, "<", "Text2.txt" or die;       # Three-argument syntax for open
my @lines = <$FILE>;            # actually reading the file into the array
foreach my $line (@lines) {     # iterating directly over the @lines array items
   say $line;                   # note that your lines already have an end of line, you would probably prefer to use print rather than say
}
close $FILE;

##</code><code>##

#!\usr\bin perl
use warnings;
use strict;
use diagnostics;

open my $FILE, "<", "Text2.txt" or die; 
while (my $line = <$FILE>) {
    print $line;
}
close $FILE;

##</code><code>##

open my $FILE, "<", "Text2.txt" or die; 
print while <$FILE>;

##</code><code>##

open my $FILE, "<", "Text2.txt" or die; 
print <$FILE>;