#1
print "Enter some Perl code: ";
eval ($this_is_a_great_design = <STDIN>);

#2
my $result = &{ $control_db->{"action"} };

#3
my @foo_functions = map (\&("foo_".$_)) @bar;


##</code><code>##


use strict qw/refs/;