use constant TWO => 2;  
$x = TWO; 
print "$x ${\TWO}\n";