print "\n\n Das selbe in grep: \n";
my @ungerade = grep { $_ % 2; } 1..500;
print join ("\t", @ungerade);