my $x = [
       
  [ 3, 2, 3 ],
  [ 5, 9, 8 ],

  ];

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

# prints
3 2 3
5 9 8
[download]