or download this
DB<110> @records= (["amy", 35], ["bill", 35], ["george", 28], ["jaso
+n", 35])
=> (["amy", 35], ["bill", 35], ["george", 28], ["jason", 35])
...
DB<114> sort {cmp_age or - cmp_name} @records
=> (["george", 28], ["jason", 35], ["bill", 35], ["amy", 35])