Select Code to Download

my @sects= qw( 1 2 2.2 2.13 2.1.7 3.4a 10.1 10.10 10.1a 1a.2 );
my %sects;
...
    $sects{$key} = $_;
}
print "@sects{sort keys %sects}\n";

my @sorted = map { join '.', unpack 'N*', $_ }
             sort
             map { pack 'N*', split /\./ }
             @unsorted;