Select Code to Download

sort {
    my @a = split(/\./, $a);
    my @b = split(/\./, $b);
...
    $a[3] <=> $b[3]

} @list