Perlで配列の要素を削る

たとえば、CSVデータとして出力するときに、列数を任意の数に合わせるため、処理中の配列の要素を削りたい場合が、あったりします。
配列の要素を削るには、以下のように最大インデックスを保持する『$#all_tbl』へ、それより小さい値を代入すると、それが最大インデクスになり、結果的に要素を削ることになるのです。

use strict;
use warnings;

my @all_tbl = ("aaa", "bbb", "ccc", "ddd");

print "最大インデクスは、$#all_tblです。\n";
print @all_tbl, "\n"; # aaabbbcccdddと表示
$#all_tbl = 2;
print "最大インデクスは、$#all_tblです。\n";
print @all_tbl, "\n"; # aaabbbccと表示