$VAR1 = {
          'divs' => [
                      'Motion-work wheels after servicing',
                      '2048x1536',
                      'DSCN0095.JPG'
                    ],
          'href' => '/p19581477.html'
        };

##</code><code>##

$VAR2 = {
          'divs' => [
                      'Movement without motion-work',
                      '2048x1536',
                      'DSCN0096.JPG'
                    ],
          'href' => '/p19581478.html'
        };
$VAR3 = {
          'divs' => [
                      'Top view of bare movement',
                      '2048x1536',
                      'DSCN0097.JPG'
                    ],
          'href' => '/p19581479.html'
        };
$VAR4 = {
          'divs' => [
                      'Movement without centre plate (1)',
                      '2048x1536',
                      'DSCN0098.JPG'
                    ],
          'href' => '/p19581480.html'
        };

##</code><code>##

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";}

##</code><code>##

HASH(0x831fa5c)
divs = ARRAY(0x831da2c)
href = /p19581479.html
Top view of bare movement
2048x1536
DSCN0097.JPG

##</code><code>##

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++;
}

##</code><code>##

0 href : /p19581477.html  divs :
1 href : /p19581478.html  divs :
2 href : /p19581479.html  divs :
3 href : /p19581480.html  divs :

##</code><code>##

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

##</code><code>##

my $yy = $test->{'divs'};
foreach my $xx (@$yy) { print $xx."\n";}