Select Code to Download

 my @records =    map  { $_->[0] }
                    sort $sort_routine
                    map  { $_->{'date'} =~ /(\d+)\.(\d+)\.(\d+)/; [ $_
+, $_->{'title'}, $1.$2.$3 ] }

 my @records =    map  { $_->[0] }
                    sort $sort_routine
...
                             $_->{title},
                             join '', $_->{date} =~ /\d+/g ] }