#!/usr/bin/perl

use warnings;

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

print $$bar;