open(DAT,'<',"./useful_dat.tab")||die "Canot open file\n";
<DAT>;                     # discard a line
while(my $line = <DAT>){   #loop through the rest