sub verify{
  my $optional;
  $optional = (@_ == 2) ? shift : "default value";
  my $ref = shift;
  ...
}