Help for this page

Select Code to Download

Select or download this

#!/usr/local/bin/perl -w
use strict;
...
my @old = ("99B","99","99A","100A","100","101","88");

print "$_\n" for sort { versioncmp($a,$b) } @old;

Select or download this
```
88
99
...
100
100A
101
```