Problem 29

#!/usr/bin/perl
 
use strict;
use warnings;
use Math::BigInt;
 
my %values;
for my $a (2..100){
        for my $b (2..100){
                my $x = Math::BigInt->new($a);
                my $y = Math::BigInt->new($b);
                my $z = $x->bpow($y);
                $values{$z} = 1;
        }
}
 
my $unique = keys %values;
print "$unique\n";