use List::Util qw( first );
my $line = first { lc($_) eq $host } @ry;