Good! And here's another way to do it.

#!/usr/bin/perl

use strict;
use warnings;
use Data::Dumper::Concise;
use Math::Factor::XS qw(factors);

my $number = shift @ARGV;
print Dumper(my @factors = factors($number));
[download]