my $section = [ 
    [ "image1.gif" , "mark('a' ,1)" ],
    [ "image2.gif" , "mark('a' ,2)" ],
];

my $parsed = '[ ' . 
             join( ' , ', map { '[ "' . join('" , "', @$_) . '" ]' } @$section ) .
             ' ]';