You're treating Perl's arrays like C's arrays. Why not just assign to the array all at once?

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

If @input is qw( a b c d ), then this makes a 4x4 table:

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

Except it does it with far less effort. And printing is just as easy.

print "@$_\n" for @grid;
[download]

japhy -- Perl and Regex Hacker