use strict;
use warnings;

use Test::More tests => 1;

my @in   = qw/a-3 a-1 a-2/;
my @want = qw/a-1 a-2 a-3/;

my @have = sort { ($a =~ /(\d+)/)[0] <=> ($b =~ /(\d+)/)[0] } @in;
is_deeply \@have, \@want;