open(my $fh, "<", "data.txt") || die "Can't open file: $!";

##</code><code>##

open (FH, '<data.txt') || die "Can't open file: $!";

##</code><code>##

while(my $line = <$fh>) {

##</code><code>##

while(my $line = <FH>) {