Select Code to Download

@input_lines =    
        sort {my ($a_name_last,$a_name_first,$a_city ) 
...
                         $a_city cmp $b_city            
                         
             }@input_lines;