Select Code to Download

#!perl
use strict;
...
$max = $_ if $max > $_ foreach (@vector[1..$#vector]);

print "$max\n";

$max = max (@vector);