http://www.perlmonks.org?node_id=1057018


in reply to Re: hash of hashes
in thread hash of hashes

Or, perhaps a simpler alternative demonstrated under the Perl debugger: 

  DB<1> @x = qw{X A B};

  DB<2> $x = shift @x;

  DB<3> print map {" $_  $x,"} @x;
 A X, B X,

[download]

In Section Seekers of Perl Wisdom