DB<110> safe_reverse sub { my ($k, $v, $r) = @_; return [ @{$r->{$v}}, $k ] },\%h
 => (1, ["a", "b"], 2, ["c"])