use strict;
use warnings;
use List::Util qw/max/;

my @level=(1,2,3,2,3,1,1,2,1,1);

print max(@level); # 3