print pop @{[sort qw(a f e b)]};
   print (reverse sort qw(a f e b))[0];
   use List::Util qw(maxstr); print maxstr qw(a f e b);