in reply to One to one relationship
my %reverse = reverse %hash; die "Useful message" unless scalar keys %reverse == scalar keys %hash; [download]
-- use JAPH; print JAPH::asString();