Why are you doing all the juggling with @hold1 if you are going to bail out after the first hit anyway? Why not something like:

    open my $fh => "$tempDir/nbssbaseblds.txt" or die "Open failed: $!
+\n";
    while (<$fh>) {
        my @parts = split m :/: => (split m /:/) [0]; # Split into pat
+h names.
        if ($parts [-1] =~ /^\w+\.bld$/)              # Match on file 
+name.
            ... whatever ...                          # $parts [-3] eq
+ "acn"
            last;
        }
    }
[download]

Abigail