You can perfectly sort "YYYY.MM.DD" values as strings with cmp. You don't need to strip dots. So the foreach loop doesn't needed at all.

Update: but if you want numeric than

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

or shorter:

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