Select Code to Download

grep { ... } @remote_list

grep { $_->{filename} eq $file } @remote_list

my %local_files = map { $_ => 1 } @local_files;
for (@remote_files) {
   print "match\n" if $local_files{ $_->{filename} };
}