$object->method($arg1,$arg2);

     sub method {
          my $self = shift;
          my $arg1 = shift;
          my $arg2 = shift;
          print "append is ",$self->{"append"},"\n";
          $self->other_method($arg2);
     }