foreach (qw/hasha hashb hashc/) {
@keys = keys %$_;
print "There are @keys here";
}