$pll=',2,';
@a=split(',',$pll);
$p=join ',', @a;
print $p;
最后印出来的 $p 只有",2" 原本预计会join回#pll=',2,'