my $lf = (sort(<*>))[-1];