Select Code to Download

use strict;
use warnings;
...
my %bar;
$bar{'one'} = 1;
my $x = "$bar{'one'} $foo{'one'}";