my @files = ...;

for my $file (@files)
{
    download($file) unless $file =~ /^asdf/;
}