@array = qw(one two three);
$p_str=join ",",@array;