open (my $file, '<', 'formation.txt') || die "Error opening file: $!";
while (<$file>) {
    chomp; # removes trailing newline character
    print "Line contents: $_\n";
}

##</code><code>##

my @lines; 
open (my $file, '<', 'formation.txt') || die "Error opening file: $!";
while (<$file>) {
    chomp; # removes trailing newline character
    push @lines, $_;
}