@{$_[0]->{'images'}{'section_a'}} = 
  ( 
    [ "image1.gif" , "mark('a',1)" ],
    [ "image2.gif" , "mark('a',2)" ],
  );