my @records =  map  { $_->[0] }
                   sort $sort_routine
                   map  { [ $_, $_->{'title'}, $_->{'cleandate'} ] } 
                   @_;