Select Code to Download

sub get_links {
    my @links;
    open(my $fh, "<", "links.alpha.sorted.25sample")
...
    }
    return @links;
}

sub sort_and_store {
    my @links = get_links();
    my @sorted_links = sort { $a->[1] cmp $b->[1] } @links;
...
        print $fh "@$tuple\n";
    }
}