One minor side point: the "generally accepted, Perl-ish" way to get the argument(s) in your sub would be:

my $DC = shift;
[download]

which is equivalent to:

my $DC = shift @_;
[download]

Your code is ok, but Perl was designed to help you avoid having to use "ugly" array index notation. If you look at much Perl code going forward, you are likely to see this type of thing expressed with the "shift" operator much more often than the way you have it written.