Select Code to Download

#!/usr/bin/perl

...
my $bar = "foo";

print $$bar;

my %vars = ( the_var_i_want => 'this is the actual value' );
chomp (my $the_name = <STDIN>);
print $var{"${the_name}_i_want"};