Select Code to Download

$S{light}->($self, 10);

$self->light(10)

sub AUTOLOAD {
    my $self = shift;
...
    # Call the appropriate method
    return $S{$name}->($self, @args);
}

$obj->light(10);

foreach my $name (@names) { 
    my $name = $S{$name};
}