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