my @sorted = sort {($b =~ /(\d*)/)[0] <=> ($a =~ /(\d*)/)[0] || $a cmp $b} @array;