sub do_stuff {
    my ( $self, %args ) = @_;
    my $foo = $args{foo};
    my $bar = $args{bar};
    # ....
}