my $test = $pictures[2];
print $test."\n";
foreach my $ky (keys %$test) { print $ky." = ".$test->{$ky}."\n"; }
my $yy = $test->{'divs'};
foreach my $xx (@$yy) { print $xx."\n";}