my @sortedList = map {my ($f, $s) = split /-/; "$f-" . ($s + 0)}
                     sort
                     map {sprintf "%s-%02d" => split /-/} @list;