$a = 666;
$b = 888;

$name = "a";
print $$name, "\n";
$name = "b";
print $$name, "\n";