$ perl -Mstrict -wle '
> my $foo = q{foo};
> my $bar = q{f};
> print do {no strict q{refs}; ${$bar . q{oo}} };'
Use of uninitialized value in print at -e line 4.
$