>perl -wMstrict -le
"my @set = (10, 20, 100);
 my @a = sort @set;
 print qq{max in set (@set) is $a[$#a]};
"
max in set (10 20 100) is 20