C:>perl
$a=1;
$b1c=42;
print ${"b${a}c"};
^D
42