...

@primfaktoren = (2,2,2,3,17,17); #Bei der Zahl 6936 sieht der Array dann so aus

ausgabe (@primfaktoren);



sub ausgabe
{	
	@primfaktoren = $_[0];
		
	my $counter2 = 0;
	my $counter1 = 0;
	
		
	$counter1 = $#primfaktoren; #Arraylänge
	while ($counter2 < $counter1) 
	{
		print ($primeFactors[$counter2] . "*"); 
		$counter2++;
	}
	print ($primfaktoren[-1]); #Ausgabe der letzen Stelle des Arrays, damit das Malzeichen am Ende nicht nocheinmal steht.
}