#!/usr/bin/perl

use warnings;

my $foo = "what?";
my $bar = "foo";

print $$bar;

##</code><code>##

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