handle($drunken_sailor);

sub handle {   
   if($morning->early()) {
     until($longboat == $sober) {
       if($_[0]) {
         $longboat = $_[0];
         undef $_[0];
       } else {
         $longboat--;
       }
    }
    $_[0] = $longboat;
    undef $longboat;
  }
}