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