my @new = sort { 

       ($b =~ /=(\d+)/)[0] <=> ($a =~ /=(\d+)/)[0]

           || 

       fc($a) cmp fc($b) 

   } @old;