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()};