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