use List::Util qw( first );
my $line = first { lc($_) eq $host } <$fh>;