use strict;
use warnings;

my (@arr, @arr2, $i);

$arr[$_] = $_ for 0..357;

for ($i = 0; $i <= $#arr; $i += 50) {
    push @arr2, [@arr[$i..($i+49)]];
}
$#{$arr2[$#arr2]} = $#arr % 50;

print join(' ', @$_), "\n" for @arr2;