sub somemethod {
  my($self, $v1, $v2) = @_;
  my($x1) = $self->{'key1'};
  my($x2) = $self->{'key2'};

  print "x1=$x1, x2=$x2\n";
  my($ret) = $self->_othermethod($v1);
  ...