#!/usr/bin/perl
# your code goes here

foreach my  $t (100 .. 999) {
  my @digits = split(//, $t);
  my $expr = ($digits[0] + $digits[1] + $digits[2])*($digits[0] * $digits[1] * $digits[2]);
  #print " $expr $t\n";
  if ($expr == $t) {
    print $t, "\n";
  }
}