my @data; 
my $dj=join("\000",@data)."\000";