use strict "vars";

my (@a, @b, $ja);

$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[14] = 'D1180';


$b[1] = 'E1180';
$b[2] = 'D0250';
$b[3] = 'A1180';
$b[4] = 'D0130';
$b[5] = 'E0855';
$b[6] = 'E0975';
$b[7] = 'A0130';
$b[8] = 'A0250';
$b[9] = 'B1105';
$b[10] = 'B1225';
$b[11] = 'B2480';
$b[12] = 'C1180';
$b[13] = 'C1600';
$b[14] = 'D1180';

print "\ncmp sort of \@a\n";
foreach $ja (sort{$a cmp $b} @a) {
	print "$ja\n";
}

print "\ncmp sort of \@b\n";
foreach $ja (sort{$a cmp $b} @b) {
	print "$ja\n";
}

##</code><code>##

cmp sort of @a

A1180
A130
A250
B1105
B1225
B2480
C1180
C1600
D1180
D130
D250
E1180
E855
E975

cmp sort of @b

A0130
A0250
A1180
B1105
B1225
B2480
C1180
C1600
D0130
D0250
D1180
E0855
E0975
E1180