#!/usr/bin/perl
use strict;
use warnings;
use Sort::Naturally;

my @articleid=qw(b1 b2 b3 a100 a5 a8 a10 a11);

print join("\n", nsort @articleid);

##</code><code>##

a5
a8
a10
a11
a100
b1
b2