open(INFILE, "linecount.txt")
my @hold;
while (<INFILE>)
{
push(@hold, $1)&& last if (m/$thefileIamLookingfor/);
}
$value = join(' ', @hold);
my( $file, $linecount) = split(/~/, $value);