my @numbers;

for my $i (100 .. 999) {
  my @num = split(//, $i);
  foreach my $j (@num) {
    $j **= 3;
  }
  if (sum(@num) == $i) {
    push @numbers, $i;
  }
}

##</code><code>##

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