%% = (foo => 23); package xxx; print $%{foo};