#! /usr/bin/perl -w

use strict;
use warnings;

foreach my $first (100..999)
{
  foreach my $second (100..999)
  {
    if (($first + $second)**2 == $first . $second)
    {
       print "$first + $second = ", $first + $second, " (", $first . $second, ")\n";
    }
  }
}