Select Code to Download

my $host = lc(shift(@_));

my @lines = grep { lc($_) eq $host } @ry;

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

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

sub get_comments {
   my $host = lc(shift(@_));
...

   return;
}