Perlでの定数宣言（コンスタント宣言）

Perlでもconstantプラグマを使うと定数宣言（コンスタント宣言）ができます。

use strict;
use warnings;

use constant HANDVALUE_GUU => 0;
use constant HANDVALUE_CHO => '1';
use constant HANDVALUE_PAA => 1 + 1;
use constant HANDVALUE1 => [0, 1, 2];
use constant HANDVALUE2 => {GUU => '0', CHO => '1', PAA => '2'};
print HANDVALUE_GUU, "\n";
print HANDVALUE_CHO * 10, "\n";
print HANDVALUE_PAA, "\n";
print HANDVALUE1->[1], "\n";
print HANDVALUE2->{PAA}, "\n";