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

##</code><code>##

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

##</code><code>##

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