sub foo{
  my ($a, $b) = @_;
  if($a<0) {
   return 1;
  }
  else {
          if($b>10) {
              return 2;
          }
          else {
              return 3;
          }
  }
}