153
370
371
407

##</code><code>##

666
870
960

##</code><code>##

#!/bin/perl5

use strict;
use warnings;

my @numbers;

for my $i (100..999){
  
  my @num = split(//, $i);
  
  my $cubed;
  for my $j (@num){
    $cubed += $j**3;
  }
  
  #my $added;
  #$added += $_ for @num;
  
  #print "$i -> $cubed -> $added\n";
  
  if(
    ($cubed) == $i 
  ){
    push @numbers, $i;
  }
  
}

print "$_\n" for @numbers;