use List::Util qw/max/;
print max(@num), "\n";