Problem 48

Perl6 

1say ([+] (1..1000).map({ $_ ** $_ })).sum.comb.tail(10).join;