Problem 56

Perl6 

1say max ([X**] (1..^100, 1..^100))>>.comb>>.sum