return  map $_->[0],
	sort {$a->[1] cmp $b->[1]}
	map [ $_,
		do{ my ($val) = substr($_,10) ; $val }
	], @_  ;