Select Code to Download

if(exists {Keys of %line contains any values of $new{a} }) #need this 
+condition

if (grep { exists $line{$_} } @{$new{a}}) {

#!/usr/bin/env perl -l

...
        }
    }
}

Key: a
TRUE
...
FALSE
Key: c
FALSE