perlのsplitで空の末尾を残す場合

#CSVデータ
my $csv_data = "aaaa,bbbb,cccc,";
my @value_array  = split(/,/,$csv_data);
#↑↑場合は
#@value_array = ('aaaa','bbbb','cccc');

#splitの第3引数に-1を指定
my @value_array  = split(/,/,$csv_data,-1);
#↑↑場合は
#@value_array = ('aaaa','bbbb','cccc','');
#末尾の空白部分が配列の最後に格納される