Select Code to Download

#!/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;