open (DATA, $txtfile)||die "cannot open $txtfile for reading";