Consider the following:

#!/usr/bin/perl -w 
use strict;

my $s = new speak();

foreach my $critter(qw/ cat dog spider /){
        $s->$critter();
}

exit(0);

package speak;

sub new { 
        bless {},"speak";
}

sub cat { 
        print "meow!\n";
}

sub dog { 
        print "woof!\n";
}

sub spider {
        print "arf!\n";
}

1;
[download]

which may give you some enlightenment that you seek.

When run it yields:

$ ./doit.pl 
meow!
woof!
arf!
[download]

Hope this is of some help.