Select Code to Download

my $section = [ 
    [ "image1.gif" , "mark('a' ,1)" ],
...
my $parsed = '[ ' . 
             join( ' , ', map { '[ "' . join('" , "', @$_) . '" ]' } @
+$section ) .
             ' ]';

[ [ "image1.gif" , "mark('a' ,1)" ] , [ "image2.gif" , "mark('a' ,2)" 
+] ]

use JSON;

...
];

my $parsed = $json->objToJson( $section );