use forks::BerkeleyDB;
use forks::BerkeleyDB::shared;

	 
my @oky: shared;
my $doky = ['sims','sim2'];
@oky = ($doky,'2');