Help for this page

Select Code to Download

Select or download this
my @sorted = sort {str2time($a) <=> str2time($b)} @dates;

Select or download this

  my %cache;
  my @sorted = sort {($cache{$a} ||= str2time($a)) <=>
                     ($cache{$b} ||= str2time($b)) } @dates;