@array = (1, 3, 5); # 配列 $ref = [1, 3, 5]; # 配列の参照 @array == @{$ref} == @$ref; # 全部等しい \@array と $ref は、値は同じ。 デバッグ用 use Data::Dumper; print Dumper( @array ); perl -d のxコマンド相当 データの永続化 use Storable; sto…