sub sorted { 
    return map { $_->[0] }
	sort { 
	    $a->[1] cmp $b->[1] ||
	    $a->[2] <=> $b->[2] ||
	    $a->[3] <=> $b->[3]
	} map { [ $_, (/([A-Z]+)(\d+)(?:-(\d+)){1,2}/) ] } @_;
}