my %hash = (
    qr/test/, 0,
    'test'  , 0,
);

print "$_\n" foreach keys %hash;