print join("\t",@{$columns}), "\n";