if(  ref($r)  &&  "$r" =~ /(^|=)HASH/  ) {