konstanten sind im prinzip subroutinen, und die gibst du ja mit dem code auch nicht aus.
also einfach: next if ref \$glob ne 'GLOB';