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