if ($line =~ /TITLE=(.*)/) {
        $title=$1; 
    } 
    elsif
    ($line =~ /RTINSECONDS=(.*)/) { 
        $RT=$1;
        if ($title && grep {$_ eq $TI} @IDS) {
            $IDrtPairs{$TI}=$RT;
            $title = undef;
        }
    }