Help for this page
#!/usr/bin/env perl ... 8 11 19 49 36 15 22 29 37 18 13 50 44 25 42
my $iterator = natatime 5, shuffle( 1 .. 50 ); my @takatakina = map { [ $iterator->() ] } 1 .. 5; say join " ", @{$_} for @takatakina;