Why not try swapping line 7 to something like this?

my $x = $bar{'one'};
$x .= " $foo{'one'}";
[download]

That way if there IS an uninitialized variable error, you'll be able to tell which variable it is based on the line number returned.