sub new {
  my $value1, $value2 = @_;
  ...
}

##</code><code>##

sub new {
  my $only_value = shift;
  ... (not the same as above ...)
}