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