Select Code to Download

my @array = qw /One Two Three/; 
my $var = 2;
print $array[$var], "\n";

my %hash = ( 1 => One, 2 => Two, 3 => Three);
my $var = 2;
print "$hash{$var}\n";

my ($oper, $rest) = shift, join ' ', @_;
my $stop = 'stop';
...
else {
    die "Unknown operation: $oper \n";
}

my %dispatch_table = (
    stop => sub {run_stop($rest); cleanup();},
...
    start => /&run_start(@rest),
    force_start => sub  {run_stop ($rest); cleanup() ; run_start ($res
+t);},
);

my ($oper, $rest) = shift, join ' ', @_;
if (defined $dispatch_table{$oper}) {
...
} else {
    die "Unknown operation: $oper \n";
}