print join("\t", @$row),"\n";