@data = map int( rand 100 ), 1.. 100;
$max = ( reduce{ 
    $a->[0] > $b ? $a : ( $a->[0] = $b, $a )  
} [0], @data )->[0];
print $max;;
96