my $iterator = natatime 5, shuffle( 1 .. 50 ); my @takatakina = map { [ $iterator->() ] } 1 .. 5; say join " ", @{$_} for @takatakina;