sub factors 
{
 my ($n) = @_;

 my @q = map { $n / $_ } (2..$n-1);
 return grep {
  floor( $_ ) == $_
 } @q;
}