Problem 34

Perl6 

1say [+] (2..350000).grep({([+] $_.comb.map(* ** 5)) == $_})