Help for this page
use List::Util qw/max/; print max(@num), "\n";
use Data::Dump 'pp'; pp \@num; __END__ [2, 1, 0]