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