my @array = qw(35 73 745 23 85);
my $zahl = (sort{$a <=> $b} @array)[-1];
print $zahl;