sub my_sub {
    my %args = (
        param1 => 'default',
        param2 => 0,
        @_,
    );
...
}

##</code><code>##

my_sub( param1 => 'Not Default Text' );

##</code><code>##

sub my_sub {
    my $self = shift;
    my %args = (
        @_,
    );
....
}