while (defined(my $line = <FH>)) {

        chomp $line;

        my @hostpair = split(' ',$line);

        my $host = $hostpair[0];

        my @FQDN = split(/ /,`host $host`,2);

        my $OWNER;

        if (exists $MYDB{uc($host)}) {
                        $OWNER = $MYDB{uc($host)}
                        }
                else
                        {
                        $OWNER = "OTHER";
                        }

  
        print "$host \t $FQDN[0]\t $hostpair[1] \t $OWNER  \n";
      
}