open (FILE, "$file") || die "Can't open $file"; $tmp=; foreach(split(/\t/,$tmp)){ push(@hashkeys, $_); } while () { $tmp=$_;