sub new {
    my $pkg = shift;
    bless { default => 1, @_ }, $pkg;
    # @_ might override 'default'
}

sub method {
    my $self = shift;
    my($shoesize) = @_;
    ....
}

my non_method {
    my($height, $width) = @_;
    ...
}