#!/usr/bin/perl

use strict;
use warnings;
use PadWalker;

my $foo="foo";
my $bar="f";

my $p = PadWalker::peek_my(0);

print ${$p->{'$'.$bar.'oo'}}, "\n";    # "foo"