my $big = (sort {$a <=> $b} @STD)[-1];