$ perl -e 'print ((sort {$a <=> $b} 15,5,7,3,9,1,20,13,9,8,15,16,2,90,6,12)[-1])'
90