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