ausgabe (\@primfaktoren);


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

$counter1 = $#primfaktoren;