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


##</code><code>##

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