#!/usr/bin/perl

use warnings;
my (%a, %b, $c);
my $x = "$a{'foo'} $b{'bar'} $c"