perl 去掉重复的结果，求高手指教

初学者写了一个程序，找出相乘等于140的整数，出来的结果有重复，例如2x70=140, 70x2=140. 怎样去掉这样重复的结果，请教高手。

#!/usr/bin/perl
for ($a=0;$a < 100;$a++){
  for($b=100;$b > -1;$b--){
   if($a * $b==140){
          print"the product of $a and $b is 140\n";
         last ;
          }
        }
}

只循环小于等于 sqrt(140) 的$a, 然后 $b <= $a