#!/usr/bin/perl

for ($i = 1; $i < 1000; $i++) {
  $is = $i * $i;
  for ($j = 1; $j < 1000; $j++) {
    $js = $j * $j;
    if (sqrt($js + $is) == int(sqrt($js + $is))) {
      $c = sqrt($js + $is);
      if (($i + $j + $c) == 1000) {
        print "$i + $j + $c = 1000.  $i * $j * $c = " . ($i * $j * $c) . "\n";
        exit;
      }
    }
  }
}