@var1 = split(/\t/,$_) ;