$pll=',2,';
@a=split(',',$pll);
$p=join ',', @a;
print $p;
最後印出來的 $p 只有",2" 原本預計會join回#pll=',2,'