use strict;
use warnings;
my $i;
my $j;
my @num;
my @numbers;

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