$page_graphic->[$i]->{array} = @array; 

##</code><code>##

join '', @$page_graphic->[$i]->{array}; # gives num elements 

##</code><code>##

join '', @{$page_graphic->[$i]->{array}};