#!/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);