use strict;

open(my $foo, "<data.txt");     
while(<$foo>){                   
   chomp;
   print "Saw $_ in data.txt\n";
}
close $foo;