Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl

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

Select or download this
```
sort of @a
A130
...
B1225
C1600
B2480
```