push @grid, [ @input ] for @input;

##</code><code>##

@grid = (
  [ qw( a b c d ) ],
  [ qw( a b c d ) ],
  [ qw( a b c d ) ],
  [ qw( a b c d ) ],
);

##</code><code>##

print "@$_\n" for @grid;