my @values = split ',', $filename;

for(@values) {
  print "Found key $_\n" if $list_of_keys{$_};
}