package: (so ähnlich hab ich des zur zeit)
#liest das file und speichert ergenis in hash
sub Opn2 {
    my $Objekt = shift;
      my $Datei = shift;
      %haServers = ();
    open(RRD,$Datei) or die "Could not read $rrdFile.\n";
    my @lines = <RRD>;
    foreach $currentLine(@lines){
    if($currentLine =~ /\w/){
        @NewServer = split(/;/,$currentLine);
        $haServers{$NewServer[0]} = $NewServer[1];
    }
    print "$haServers{'chr7ca43'}<br>";
    return (%haServers);
}