sub primeFactorization
{
	my $divisor = $_[0];
	my $z1 = $_[1]; 
	
		
	my $z1tmp = $z1;
	my $remainder = 0; 
	my @primeFactors;
	
	$divisor++;
	if ($divisor <= $z1)
	{
		$remainder = $z1tmp % $divisor;
		if ($remainder == 0)
		{
			@primeFactors = (@primeFactors, $divisor);
			$z1tmp = $z1tmp /= $divisor;
			$divisor = 1;
			print ("@primeFactors\n"); #Testausgabe nach jedem Durchlauf
		}
		primeFactorization ($divisor, $z1tmp);
	}
	else
	{
		output (\@primeFactors);
	}
}