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