Perl search by value from hash.

print grep { $host_ip{$_} eq "1.1.1.1"} keys %host_ip;

where:

%host_ip = (
"First" => "1.1.1.1",
"Second" => "2.2.2.2"
);