my @txtfile;
while (<$fh>) {
   chomp;
   push @txtfile, $_;
}