Select Code to Download

foreach ( sort gs::long_strings_first(), @$raw_hash_keys_ar ) {
    #do_stuff;
...
            ||
        lc $b cmp lc $a
}

'All-American Residential Framing'
'Builders Assistant'
...
'P & L Lighting'
'Regis Co.'
'Robert E. Matthews'

foreach ( sort {
    length $b <=> length $a
...
'Regis Co.'
'Greenways'