my $x = 0;
foreach $y (@lots_of_values){
   $x = $y if $y > $x;
}
return $x;

##</code><code>##

my $x = 0;
foreach $y (@lots_of_values){
   $x = [ $x => $y ] -> [ $x <= $y ];
}
return $x;