@arrayCode = qw( $cn=join(",",@names); print@names; );
$ac = join("",@arrayCode);
eval($ac);