#!/usr/bin/perl

# http://perlmonks.org/?node_id=1176132

use strict;
use warnings;

my @a;

$a[1] = 'E1180';
$a[2] = 'D250';
$a[3] = 'A1180';
$a[4] = 'D130';
$a[5] = 'E855';
$a[6] = 'E975';
$a[7] = 'A130';
$a[8] = 'A250';
$a[9] = 'B1105';
$a[10] = 'B1225';
$a[11] = 'B2480';
$a[12] = 'C1180';
$a[13] = 'C1600';
$a[0] = 'D1180';

print "\nsort of \@a\n";
for my $ja (sort{$a =~ tr/0-9//cdr <=> $b =~ tr/0-9//cdr} sort @a) {
    print "$ja\n";
}

##</code><code>##

sort of @a
A130
D130
A250
D250
E855
E975
B1105
A1180
C1180
D1180
E1180
B1225
C1600
B2480