$ perl -le '$_ = join "-", %h = (1,2,3,4,1,2,3,4); print "yes" if /--/'
yes