open(DAT,'<',"./useful_dat.tab")||die "Canot open file\n"; my @file=; close DAT; shift @file;##remove header foreach my $line(@file){