一定の形式に従って記述してもらうテキストエリアがあり、書き方が不正な行があったら、その行数を表示したいのです。
不正のある行数を配列に格納する部分まではできるのですが、それの表示方法で質問です。

@err_lineの中身が("1","3","5")だとした場合、「1,3,5行目の書式が不正です」と表示するエラー画面を出したいのですが、

foreach(@err_line){
　print $_ , ",";
}
print "行目の書式が不正です"

とすると、「1,3,5,行目の〜」となり、配列の最後の文字を出力した後にも","(ｶﾝﾏ)が出力されてしまいます。
何か良い書き方はないでしょうか。