Help for this page

Select Code to Download

Select or download this

#!/usr/bin/env perl
my (@months) = qw(Mar13 Jun13 Jul13 Apr13 );
...
@months = ( sort by_month @months );

print "@months\n";

Select or download this
```
Mar13 Jun13 Jul13 Apr13
```