foreach (keys %{CONST})
{
    print "$_\n";
}