Select Code to Download

*Foo = sub($) { print "$_[0]\n" };
sub Bar($) { print "$_[0]\n" }
...
my @array = qw( a b c );
Foo(@array);  # a
Bar(@array);  # 3