my $highest = '';
my $lowest; # undef
foreach (@list_of_string) {
   $highest eg $_;
   $lowest el $_;
}