That's why your code prints also fractional numbers - it never checks for integer divisibility.

One good way to do that is to use the % infix operator (modulus operation), which gives you the reminder of a division. So for example 7 % 3 is 1, because if you divide 7 by 3, the remainder is one. If the remainder is zero, the second number evenly divides the first.

thanks :) that really helped.

Update: nevermind, sigh.

Just to be boldly pedantic...

You can divide every number by 2 (or by any number other than zero or one), you just won't always get an integer result.

Every number includes 1.5, and 1.5 / 1 does not give an integer result.

The OP code even allows you to enter such numbers, since the input has no validation at all.

Moreover, if you are iterating until (number/2) in order to find number's *prime* factors, then you're on a wrong way, since the right condition would be to iterate until sqrt(number).

Here's one way to use it, that produces pretty output. You can pipe or pass as an argument a number to factor.

use strict;
use warnings;
use feature qw(say);

use Math::Big::Factors qw(factors_wheel);
use List::AllUtils qw(max);

for my $number (@ARGV ? @ARGV : <STDIN>) {
        chomp $number; # in case it came from stdin
        my %factors; $factors{$_}++ for factors_wheel($number, 1);
        my (@sup, @fac);
        for my $factor (sort { length($a) <=> length($b) or $a <=> $b 
+} keys %factors) {
                my $exp = $factors{$factor};
                my $fmt = "%${\(length$factor)}s%${\(length$exp)}s";
                push @sup, sprintf($fmt, '', $exp);
                push @fac, sprintf($fmt, $factor, '');
        }
        my $pfx = "\t";
        say join("\n",
                "$number:",
                $pfx . join('   ', @sup),
                $pfx . join(' * ', @fac),
                '');
}
[download]

perl -le '("1" x shift)=~/^(11+)\1+$(?{print length $1})(*FAIL)/' 30
15
10
6
5
3
2
[download]

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

While you can use sprintf, printf or even int to chop away the decimal part the array @factor can end up having repeated elements and that doesn't sound efficient..exercise on some workaround and we'll be here if you needed assistance . :)

Make it a habit to always declare your variables and turn strictures on at the top of your program that can save you from many horrendous evil bugs that can become hard to track otherwise...

use strict;
use warnings;

print "Enter a number you want to factor: \n";
my $number = <STDIN>;
my @factor;
for (my $count = 2; $count <=sprintf($number/2); $count++)
{
  my  $result = int($number / $count); #other approaches were shown..
  push (@factor, $result);
}

print "The factors of $number are: \n";
foreach (@factor) {
    print "$_\n";
}
[download]