Ja, funktioniert, bzw. ist deine Darstellung die benötigte Hilfe.

$$ref=[qw(var1 var2 var3)] if($type eq 'array');
allokiert nicht und crashed deshalb, zeigt mir aber wie man das in Perl macht.

push(@{$$ref},$plip);
push(@{$$ref},$plop);
erzeugt,allokiert richtig und liefert korrekt:
printf("plop is %s\n",*((char*)ptr+1));

Du bist eine echte Perl(e)
Gruß und herzlichen Dank