sub new { my ($class,%args) = @_; ... my $foobar = $args{foo} . $args{bar}; # Whatever ... }