use strict;
use warnings;

my @array = qw(blah-13 yup-09 weird-2 stranger-1 strange-1);
print "Input array:\n";
print "$_\n" for @array;

@array = sort { my ($atext,$anum) = $a =~ /(\w+)-(\d+)/;
                my ($btext,$bnum) = $b =~ /(\w+)-(\d+)/;
                    $anum <=> $bnum  
                           or
                    $atext cmp $btext       
              }@array;
print "\nOutput array:\n";             
print "$_\n" for @array;
 
__END__
Input array:
blah-13
yup-09
weird-2
stranger-1
strange-1

Output array:
strange-1
stranger-1
weird-2
yup-09
blah-13