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