How about the following? @a = qw(one one 1 one); print "not the same\n" unless @a == grep m/$a[0]/o, @a; Later, Ray.