use strict;
use warnings;
my ($i,$j,$l,$s);
my (@num,@numbers);

for $i(100..999)
    {
    undef(@num);
    @num=split(//, $i);
    foreach $j(@num){ $j=$j**3;}           
    $s=0; 

    for $l(@num) {$s = $s + $l;}
    if( $s == "$i") {push (@numbers, $i);}
    }
print @numbers;
#output is
153370371407