package Prime;
use strict;
use warnings;

sub factor {
    my $factors = [];
    my $number = shift;
    until ( $number == 1 ) {
        foreach my $divisor ( 2 .. $number ) {
            if ( $number % $divisor == 0 ) {
                push @{ $factors } => $divisor;
                $number = $number / $divisor;
                last;
            }
        }
    }
    return $factors;
}

sub factors {
  my ($num) = @_;
  return factor( $num );
}

1;