Washington
New York
Louisiana
Georgia
Texas
Iowa

##</code><code>##

use strict; use warnings; use feature 'say';
use Path::Tiny; # imports path()

my $file = '1193233.txt';
my @list = path( $file )->lines({ chomp => 1 });

say scalar @list . ' items';
say 'item: ' . $_ for @list; 

##</code><code>##

$ perl 1193233.pl
6 items
item: Washington
item: New York
item: Louisiana
item: Georgia
item: Texas
item: Iowa