$result *= $_ ** $primes{$_} for keys %primes;