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

##</code><code>##

    my @records = sort $sort_routine @_;

##</code><code>##

    ($opt_g =~ /^t/i) ?    #flag setting sort order
        ($sort_routine = \&sort_by_title) :
        ($sort_routine = \&sort_by_date);

##</code><code>##

    $sort_routine = ( $opt_g =~ /^t/i
        ? \&sort_by_title
        : \&sort_by_date
    );

##</code><code>##

sub sort_records {
   my $sort_routine ( $opt_g =~ /^t/i
      ? sub { $a->{title} cmp $b->{title} }
      : sub { $a->{date}  cmp $b->{date}  }
   );   
   return sort $sort_routine @_;
}