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

##</code><code>##

use Data::Dump 'pp';
pp \@num;
__END__
[2, 1, 0]