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

##</code><code>##

BEGIN {
    $^H{'feature_unicode'} = q(1);
    $^H{'feature_say'} = q(1);
    $^H{'feature_state'} = q(1);
    $^H{'feature_switch'} = q(1);
}
LINE: while (defined($_ = <ARGV>)) {
    our(@F) = split(' ', $_, 0);
    $x[$_][$c or 0] = $F[$_] foreach (0 .. $#F);
    ++$c;
}
{
    say "@$_" foreach (@x);
}