my $lf = (sort(<*>))[-1];
print $lf,"\n";

##</code><code>##

print (sort(<*>))[-1], "\n";