my $i = 0;
foreach my $pic (@pictures) {
  print $i." href : ".$pic->{'href'}."  divs : ";
  my $tmp = $pic->{'divs'};
  #print @tmp." : ";
  #print $tmp," : ",@$tmp;
  #foreach my $div ($pic->{"divs"}) { print .", ".$div;}
  foreach my $xy (@$tmp) { print .", ".$xy; }
  print "\n";
  $i++;
}