use List::Util 'maxstr';
my $max = maxstr(@vals);