Perl機選二色球
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
";
$i--;
}