use List::Util qw( max );

print max 1..10;  # 10