my $tmp = $pic->{'divs'};
foreach my $xy (@$tmp) { print .", ".$xy; }