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