...
my (@line, $count);

while (<$fhConditions>)
{
    push @line, $_;
    $count++;
}

for (my $i = 0; $i < $count; $i++)
{
	my @pos = $line[$i] =~ /chr[0-9]\s+(.+?)\s/g;
	...