open(R_HOSTS,"<$host_file") or die $!;
while(my $line = <R_HOSTS>){ 
  chomp $line; # Zeilenumbruch entfernen
  if($line =~ /^$ip/){ # wenn die Zeile mit der IP beginnt
    $name = (split(/\s+/,$line))[1]; # Der Name ist durch ein od. mehrere Leerzeichen von der IP getrennt
  }
}
close R_HOSTS;