push(@hold, $1) if (m/(\w+\.bld)/);
to
    push(@hold, $1) && last if (m/(\w+\.bld)/);