$ perl -le '$x=2; my $x=4; print ${x}, ${"x"}'
42