use strict
my %a = (qr/(.+)pippo/, 1);
print keys %a;

##</code><code>##

use strict;
my %a = (1,2);
my %b = (\%a, 3);
for (keys %b) { print %$_ };