Select Code to Download

use AnyLanguage;
my @lexicon = [ ( REGEXP => regex1, ACTION => sub { code1 } ),
...
while ( my $input = ... ) { 
    $MyLanguage -> dispatch{ $input };
}

package AnyLanguage;
sub new {
...
    return &{$aref -> [$#$aref ] -> { ACTION }};
}
1;