$ perl -le 'my $foo = 5; print ${"foo"}'

$