my $biggest = $STD[0];
foreach (@STD) {
  $biggest = $_ if $_ > $biggest;
}
print "Groesstes Element: $biggest\n";