>perl -wMstrict -le
"my $foo = 'Bar';
 ;;
 my %hash = ( 'BarBaz' => 'Quux' );
 ;;
 print $hash{ $foo . 'Baz' };
"
Quux