http://qs321.pair.com?node_id=1066630


in reply to Dynamically create a foreach loop within a foreach loop?

use Algorithm::Loops qw( NestedLoops ); my @hashes = ( \%hash0, \%hash1, \%hash2, \%hash3 ); my @key_lists = map [ keys %$_ ], @hashes; NestedLoops(\@key_lists, sub { my @keys = @_; say join ', ' map "$keys[$_] => $hashes[$_]{$keys[$_}}", 0..$#keys; });