my @lines = <RRD>;
    foreach $currentLine(@lines){