sub is_constant {
    my $k = shift;
   return $k =~ /^[A-Z]+$/ 
       && !grep { $_ eq $k } @GLOBAL_SYMBOLS
}