#!/usr/bin/perl
use strict;
use warnings;
use List::Util 'sum';

for (100 .. 999) {
    print "$_\n" if sum(map {$_ ** 3} split //) == $_;
}