while (($key, $value) = each %by_key) {
		 push @{$key_list_by_value{$value}}, $key;
		}