use List::Util qw(max);
$largest = max(qw(1 11 2 3));
print $largest;