if ($score > 21 and $ace == 1) {          #lines in question
         for ($i = @$hand; $i--;) {                    #lines in quest
+ion
             last if $$hand[$i] =~ s/^(\w) a$/$1 1/i;  #lines in quest
+ion
         }
         $score = score( $hand, $dop, $value );
     }
[download]