open (my $FH, '<', "bindo1061990A.txt") || die "Cannot open bindo1061990A,txt: $!"; my @lines = <$FH>; for my $line (@lines) { say $line; }