use strict;
use warnings;
use JSON;

my %bookmarks;
for (1..3) {
		push @{$bookmarks{browserBookMarksData}}, { bookmark => "0", created => "01/12/2012" };
}
print to_json \%bookmarks;