my @files = ...;

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

##</code><code>##

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