Select Code to Download

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