Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl 
my %files=%{{1=>"a", 2=>"b", 34=>"c", 5=>"d", 6=>"e", 7=>"f", 8=>"g", 
+9=>"h"}};
...
grep($max=($_>$max)?$_:$max,keys %files);

print "<$max>\n";

Select or download this
```
perl /tmp/foo 
6 8 1 34 7 9 2 5
<34>
```