Select Code to Download

APR12
MAR13
...
MAR12
FEB13
APR13

#!/usr/bin/env perl
my (@months) = qw(APR12 MAR13 APR11 MAR12 FEB13 APR13);
...
}
@months = ( sort by_month @months );
print "@months\n";

APR12 MAR13 APR11 MAR12 FEB13 APR13