my @sorted = sort {
    ($a =~ /\.([0-9]+)-([0-9]+)\./, 100*$1+$2) 
<=> ($b =~ /\.([0-9]+)-([0-9]+)\./, 100*$1+$2)
} @strings;