perl -wle 'my $max = "-Infinity"; for (-10,-20,-1) { $max = $_ if $_ > $max } print $max'
-1