#!perl use strict; my $x = 1; my $y = 1; my $total; while ($x*$y ne 133745531) { $x++; $y++ if $x == 137745532; $x = 1 if $x == 137745532; $total = $x*$y; print $total."\n"; } print "$x+$y"; exit;