http://www.perlmonks.org?node_id=1153797


in reply to Re^5: Readonly oddity
in thread Readonly oddity

use 5.014; use strict; use warnings; use constant FOO => [ qw(BAR BAZ) ]; push @{FOO()}, qw(BOO HAHA); say join " ", @{FOO()}; @{FOO()} = split / /, "what are you using such constants for?"; say join " ", @{FOO()};
Oh, yeah, also I don't like that you have to add () to those constants in some cases.