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