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