my @arry = grep /^[^#]/, qw(
	one
	two
	three
	#four
	five
);