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

##</code><code>##

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