Select Code to Download

for ($count = 2; $count <=sprintf($number/2); $count++)
{ 
...
    push (@factor, $result);
}    <-------------------------------- Extra Block..
}

use strict;
use warnings;
...
foreach (@factor) {
    print "$_\n";
}