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