for $c (1..10) { for $b (1..$c) { for $a (1..$b) {
    print $c,$b,$a  if $c**2 == $b**2 + $a**2;
} } }