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