Select Code to Download

for my $k (sort keys %$hFiles) {
  # ^$k$ forces $k to match the entire value of each entry in @aFiles
...
  next if scalar grep( /^$k$/, @aFiles);
  print "key=$k\n";
}