my @row1 = qw(71 22 15 10 51);
my @row2 = qw(91 82 28 11 91);
my @row3 = qw(11 72 37 58 20);
my @row4 = qw(21 42 63 24 16);
my @row5 = qw(81 32 53 54 42);


my @rows = ();
@rows[0] = @row1;
@rows[1] = @row2;
@rows[2] = @row3;
@rows[3] = @row4;
@rows[4] = @row5;

$i = 0;
while ($i <= 4)
{
  print "@rows[$i]\n";
  $i++;
}