DB<113> use List::Util qw/max/

  DB<114> @array = map {int (rand(91))+10} 1..5
 => (36, 56, 42, 38, 49)

  DB<115> $max = max @array
 => 56