c:\@Work\Perl>perl -wMstrict -le
"use List::Util 'shuffle';
 use List::MoreUtils qw(natatime);
 ;;
 my $iterator = natatime 5, shuffle 1 .. 50;
 ;;
 while (my @five = $iterator->()) {
   print qq{@five};
   }
 ;;
 print '---------';
 while (my @five =  $iterator->()) { print qq{@five}; }
"
47 16 22 40 27
14 8 35 36 21
46 43 9 42 17
31 2 18 33 24
11 1 44 7 3
38 49 41 25 39
15 37 29 12 5
23 45 10 6 26
20 19 28 50 34
32 13 4 30 48
---------