$ perl -MO=Deparse -e 'print $a{funclist}[0](4);'
print $a{'funclist'}[0](4);
-e syntax OK

$ perl -MO=Deparse -e 'print $a{funclist}->[0]->(4);'
print $a{'funclist'}[0](4);
-e syntax OK