use constant TWO => qw( one three );
$x = TWO; 
print "$x ${\TWO}\n";