open(RRD2,"rrd_srv.txt") or die "Could not read $rrdFile.\n";

while (<RRD2>){
        $currentLine = $_;
        print "current line: $currentLine<br>";
        if($currentLine =~ /\w/){
            @NewServer = split(/;/,$currentLine);
            $haServers{$NewServer[0]} = $NewServer[1];
        }
        return (%haServers);
    }
close(RRD2);