{
   package Processor;
   sub process_one_thing {
      my $class = shift;
      my ($thing) = @_;
      print "Processing '$thing'...\n";
   }
   sub process_many_things {
      my $class = shift;
      my (@things) = @_;
      for my $thing (@things) {
          # we need $class so we can call this
          # other method!
          $class->process_one_thing($thing);
      }
   }
}

Processor->process_many_things("Foo", "Bar", "Baz");