our @trunk = qw(umbrella rocks jumpers spare jack);

eval map { $_->jump() } grep /jumpers/, @trunk;

package jumpers;

sub jump { print "rrrrr... rrrrrrr... [vroom]!\n" }