my @data = (1, 30, 4, 5, 12, -12, 4.1, 18,20, 2, 0 ,4, 36, 0, 8, 15, 4
+2, 4711, 0xdead, 0xbeef);

my $max = $data[0];
$max= $_>$max ? $_ : $max foreach (@data);

print $max,"\n"
[download]