Help for this page
%struct;
push(@{$struct{$key}},"value") ... // i passed the reference n added the values to the array add(\@{$struct{$key}});