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

  print Dumper(\%arg);
}

##</code><code>##

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

  print Dumper($hashref);

  # do stuff with $hashref

}

##</code><code>##

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

  my %hash = %$hashref;

  print Dumper(\%hash);

  # do stuff with %hash

}