Select Code to Download

use warnings;
use strict;
...
while (<$fh>){
   ...
}

my @list = map {$_ => 1} @other_list;
my @filtered_list = grep {$_ =~ /blah/} @some_list;