my @ungerade; 

foreach (1..500)
	{                                                   
	if ($_ % 2)
		{
		push (@ungerade, $_); 
		} 
	}
print "\n\n Ungerade Zahlen von 1 bis 500: \n"; 
print join ("\t", @ungerade);