Help for this page

Select Code to Download

Select or download this
```
    my @infile = <>; # Reads file
```

Select or download this

   ### Define the sort key here ###
   # Sorts in ascending order.
...
     # Sorts  descending order.
    sub key2  { ( substr( $b, 20, 2 )) cmp ( substr( $a, 20, 2 )); }
    #