Select Code to Download

my @common;
push @common, $_ if($$bar{$_}) foreach(keys(%$foo));

my @foo = commonkeys($foo, $bar, $splat, $woo, ...);