my @ar = ("Z","B","A");
my %x = ('period' => "2010/05",
       'type' => "voice",
	'tcon' => "A,B",
    'hcon' => "@arr"
      );