perl -na -E "BEGIN{$c=0}; $x[$_][$c]=$F[$_] for 0..$#F; $c++} {say qq|@$_| for @x" transpose-this.txt