How about the following?

@a = qw(one one 1 one);
print "not the same\n" unless @a == grep m/$a[0]/o, @a;
[download]

Later,
Ray.