@a_keys = grep { $myhash{$_} eq 'a' } keys %myhash;