{
    my ($c,$b,$a)=(1,1,1);

    sub lazy {
        for ( ; $c <=  $max ; $c++  ) {
            for ( ;  $b <= $c  ;  $b++ ) {
                for ( ;  $a <= $b  ; $a++ ) {
                  return [$c,$b,$a++] if $c**2 == $b**2 + $a**2;
                };
                $a=1; #reset
            };
            $b=1; #reset
        }
       $c=1;
        return;
    }
}





while ( $triple = lazy() ) {
    print Dumper $triple;
}