Select Code to Download

@sorted = 
    sort { int($a->{SP}/100)*100 <=> int($b->{SP}/100)*100 }
    @unsorted;

@sorted_refs =
    map { $_->[1] }
    sort { $a->[0] <=> $b->[0] }
    map { [ int($_->{SP}/100)*100, $_] }
    @unsorted_refs;

@sorted_refs =
    map { $_->[2] }
    sort { $a->[0] <=> $b->[0] || $a->[1] <=> $b->[1] }
    map { [ int($_->{SP}/100)*100, DateToTmStr($_->{SaleDate}), $_] }
    @unsorted_refs;