open my $foo, '<', 'data.txt' or die "Can't read data.txt: $!";
while ( <$foo> ) {
    chomp;
    #etc.
}
close $foo;