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

##</code><code>##

$self->light(10)

##</code><code>##

sub AUTOLOAD {
    my $self = shift;
    my @args = @_;

    # Retrieve the method name, without the Package name
    my $name = our $AUTOLOAD;
    $name    =~ s/.*://;

    # Check if this is one of the functions we declared
    croak "Undefined method : $name" 
        if !$S{$name};

    # Call the appropriate method
    return $S{$name}->($self, @args);
}

##</code><code>##

$obj->light(10);

##</code><code>##

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