Help for this page

Select Code to Download

Select or download this

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

Select or download this
```
print (sort(<*>))[-1], "\n";
```