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