my @numbers = grep { sum(map { $_ ** 3 } split //) == $_ } 100 .. 999;