Help for this page
@data = map int( rand 100 ), 1.. 100; $max = ( reduce{ ... } [0], @data )->[0]; print $max;; 96