use List::Util 'shuffle';
 my @list = (1..33);
 my @blue = (1..16);
 my $y = $#blue;
my $i=10;
while ($i>0){
        @shuffled = shuffle(@list);
        my  @result = sort {$a <=> $b} (@shuffled[1..6]);
        my $j = int rand ($y+1);
        push @result,'|';
        push @result,$blue[$j];
        print "@result\n";
        $i--;
}