Find all the integers multiplied gives X?

Christian Works For brute force, to be more elegant, try to implement some integer factorization algorithm .

EDIT:

After digging, although CPAN (you should always), I found Math::Factor::XShere is an example (I also ridiculed a clean Perl example using grep / map):

#!/usr/bin/perl
use strict;
use warnings;
use 5.10.0;

use Math::Factor::XS qw/factors matches/;

my $num = 12;

say "Factors:";
my @factors = factors $num;
say for @factors;

say "Matches:";
say $_->[0] . "x" . $_->[1] for ( [ 1, $num ] , matches($num, \@factors));

# using grep 
say "Grep:";
my @grep_factors = map { [ $_ , $num / $_ ] } grep { !($num % $_) } (1 .. int sqrt $num);
say $_->[0] . "x" . $_->[1] for @grep_factors;