Select Code to Download

use List::Util qw[ first ];;
my $a = { a=>0, b=>0, c=>0 }; 
...
    print "Common keys!";
}
Common keys!