OK and ++NetWallah but now you explain this to me: at first glance i saw the BEGIN and seemed to me not necessary, but after a while I saw $c++}  { part and i said: this is a typo.. but no! it compiles and run fine as all code you post.

Removing the BEGIN block..

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

..deparsed becomes:

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);
}
[download]

So your evil trick ;=) to use } { is to break the implicit loop created by -n ? and doing so you have a fictional END block?

If so, I prefere (in this case) readabilty over magic:

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

L*