perl -MData::Rmap=rmap_hash -le 'rmap_hash {print keys %{$_->{a}} } ({a=>{1,2}})'