c:\@Work\Perl\monks>perl -wMstrict -MData::Dumper -le
"my @source = qw(a b c foo bar baz fee fie foe);
 ;;
 my @Array_of_ALL_Vals;
 ;;
 for my $iloop (0 .. 3){
   my @Array_Vals;
   @Array_Vals = @source[ 0 .. rand @source ];
   push @Array_of_ALL_Vals,\@Array_Vals;
   print Dumper \@Array_of_ALL_Vals;
   }
 ;;
 print '-----------';
 print Dumper \@Array_of_ALL_Vals;
"
$VAR1 = [
          [
            'a',
            'b',
            'c',
            'foo',
            'bar'
          ]
        ];

$VAR1 = [
          [
            'a',
            'b',
            'c',
            'foo',
            'bar'
          ],
          [
            'a',
            'b',
            'c'
          ]
        ];

$VAR1 = [
          [
            'a',
            'b',
            'c',
            'foo',
            'bar'
          ],
          [
            'a',
            'b',
            'c'
          ],
          [
            'a',
            'b',
            'c',
            'foo'
          ]
        ];

$VAR1 = [
          [
            'a',
            'b',
            'c',
            'foo',
            'bar'
          ],
          [
            'a',
            'b',
            'c'
          ],
          [
            'a',
            'b',
            'c',
            'foo'
          ],
          [
            'a',
            'b',
            'c',
            'foo',
            'bar',
            'baz',
            'fee'
          ]
        ];

-----------
$VAR1 = [
          [
            'a',
            'b',
            'c',
            'foo',
            'bar'
          ],
          [
            'a',
            'b',
            'c'
          ],
          [
            'a',
            'b',
            'c',
            'foo'
          ],
          [
            'a',
            'b',
            'c',
            'foo',
            'bar',
            'baz',
            'fee'
          ]
        ];