#!/usr/local/bin/perl -w
use strict;
my @list=("abcd123","abcd143","abcd123","abcd123");

$_=join("",@list);
s/$list[0]//g;
print "not equal\n" if ($_);