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} }; }
## grep { $_->{filename} eq $file } @remote_list ##
## my %local_files = map { $_ => 1 } @local_files; for (@remote_files) { print "match\n" if $local_files{ $_->{filename} }; }