Select Code to Download

my %list_of_keys = qw(DNI 1 SNI 1 JRN 1);
my $filename = 'foo,JRN,SNI,bar';
...
    my $key = $1;
    print "Found key $key\n";
}

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

...
  print "Found key $_\n" if $list_of_keys{$_};
}