foreach $int (1 .. ($no/2)) {
   if ($no%int == 0) {
      $div = $no / $int;
      print "$div\n";
   }
}