my @array = qw(1 6 2 8 3 4);
@array = sort @array;

print $array[$#array];