Hmm... Can you try this?

#!/usr/bin/perl

use strict;
use constant foo =>{
                        key1 => 'val1',
                        key2 => 'val2'
                    };

for my $i ( foo ) {
    for my $j (keys %{$i} ) {
        print "$j - $i->{$j}\n";
    }
}
[download]