my %intByStr = populate();
my %strByInts; $strByInt{ intByStr{ $_ } } = $_ for keys %intByStr;
...