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