open( my $fh, "<", "Q.txt" ) or die "can't open file: $!";