my $max = $numbers[0];
for (@numbers) {
   $max = $_ if $_ > $max;
}