Select Code to Download

#!/usr/bin/perl
use strict;use warnings;
...
my @sorted = map { join '.',@$_}
                 sort {versionsort($a,$b)} @versions;
print "sorted: ".join(', ',@sorted)."\n";

before: 1.1, 11.2.3, 2.3, 11.2.1, 11.2, 11.2.1.1
sorted: 1.1, 2.3, 11.2, 11.2.1, 11.2.1.1, 11.2.3