You can use eval to evaluate a string, not unlike this:

use strict;

my $x  = 8;
my $xr = "x";
my $y  = eval "\$$xr";

print $y;
[download]

You should see that in the code, eval evaluates the string $x and returns the value of the variable, in this case 8.

Hope that helps ..
-- Foxcub