sub dothis {
          my ($this, $that) = @_;
          ## rest of the code
}