my($reg, $ass, $check) = (shift, shift, shift);