sub BLUE	{ 1 }
	sub RED		{ 2 }
	sub GREEN	{ 3 }

	...

	print "Green" if $color == GREEN;
	print "Blue" if $color == BLUE;