sub primefactor ($) {
 my $number=shift;
 my @factors=();
 for (my $i=2; $i<=$number;) {
  unless ($number%$i) {
   $number/=$i; push @factors, $i;
  } else {$i++}
 }
 @factors&&return(@factors);
 return($number);
}