while (my $currentLine = <RRD>) {