my $re = qr/\d+/;
print join "\n", sort {($a =~ /$re/g)[-1] <=> ($b =~ /$re/g)[-1]; } @names