@list = qw(nfs-4 afp-2 cifs-8 nfs-2 cifs-1 afp-7 cifs-11);
sub my_sort {
    my ($as,$an) = split( /-/,$a,2);
    my ($bs,$bn) = split( /-/,$b,2);
    return ($_ = ($as cmp $bs)) ? $_ : ($an <=> $bn);
}
@sorted = sort my_sort @list
print $_ . ", " for @sorted;
__END__
afp-2, afp-7, cifs-1, cifs-8, cifs-11, nfs-2, nfs-4,
[download]

works for your example list, may not be very perlish though

regards,
tomte