package someclass;

my $defaults = { foo=>1, bar=>23 };

sub new {
    my $class = shift;
    my %self = ( %{ $defaults }, @_ );
    return bless \$self, $class;
}