Help for this page
print map { "$_\n" } grep { $_ == sum map { $_ ** 3 } split // } 100 .. 999
print "$_\n" for grep { $_ == sum map $_ ** 3, split // } 100 .. 999