print "Enter the limit : ";
chomp(my $lim = <STDIN>);

my %bookmarks;
while ( $lim-- ) {
	push @{$bookmarks{browserBookMarksData}}, {
		bookMark => $charset[ rand(@charset) ],
		created  => $charset2[ rand(@charset2) ],
		date     => $charset3[ rand(@charset3) ],
		title    => join '', @charset4[map {int rand @charset4} (1..8)],
		url      => join '', @charset5[map {int rand @charset5} (1..8)],
		visits   => $charset6[rand(@charset6) ],
	};
}
print to_json \%bookmarks;