constant ARRAY

use constant ARRAY1 => ('hoge'=>'aaa','hoge2'=>'bbb','hoge3'=>'ccc');
%array2 = ARRAY1;
print $array2{'hoge'},"\n";

foreach my $key( keys %array2 ){
print "$key: $array2{$key}", "\n";
}