「Perl」push関数で配列の末尾に値を追加するサンプル

構文
push @配列名,文字列;
使用例

#! /usr/bin/perl
use strict;
use warnings;

my @cft = ("A001","B002","C003");


print ($cft[0]); 
print ($cft[1]); 
print ($cft[2]); 

push @cft,'D004';

print ($cft[3]);

実行結果
A001
B002
C003
D004