$ perl -MO=Deparse -e '%$hash{"key1"}->%*'
%{%$hash{'key1'}};
-e syntax OK