Select Code to Download

my @x;
while (deal [1..9] => my ($a,$b,$c) ){
  print $a,$b,$c;
  push @x, \$a;
}

for (1..3) {
  while (deal [1..9] => my ($a,$b,$c) ){
...
    last;
  }
}

init_deal my ($a,$b,$c)
while (deal [1..9] => ($a,$b,$c) ){
   ...
}