Help for this page

Select Code to Download

Select or download this

my @quarter = qw(q0
   q3 q3
   q4 q4 q4
...
    { $quarter[(split(/\//, $a))[0]] cmp
      $quarter[(split(/\//, $b))[0]] }
        @rawdates;