In this line foreach my $line (my @stories){ the my makes a new copy of the array stories that is in effect for the lexical block of the foreach. Of course that new copy is empty rather than having the contents of the file in it. Use foreach my $line (@stories){ instead;