Select Code to Download

sub _ss {
  my ($self, %arg) = @_;

  print Dumper(\%arg);
}

sub _ss {
  my ($self, $hashref) = @_;
...
  # do stuff with $hashref

}

sub _ss {
  my ($self, $hashref) = @_;
...
  # do stuff with %hash

}