my @sorted_patterns = sort { my $spec_a = ($a =~ tr[.][.]);
                             my $spec_b = ($b =~ tr[.][.]);
                                $spec_b <=> $spec_a
                             || $a cmp $b
                           } @patterns;