Select Code to Download

my @foo = qw/1 2 3 4 5 6/;
my %bar = (
...
my $zonk = \@foo;

print "$bar{$zonk}\n";

elephants