Pythagorean Triplet - Perl5 | SlaveCode