$foo = 'bar';
$$foo = 'baz';
print $bar;
#prints 'baz'

##</code><code>##

#!/usr/bin/perl -w
use strict;
my %Foo = ('Routine' => {
		SUB => \&Routine,
		FLAG => 1 },
	'Option' => {
		SUB => \&Option,
		FLAG =>	0 }
);

foreach (keys %Foo) { 
    $Foo{$_}{SUB}->() if $Foo{$_}{FLAG}; 
}