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