if ( join("->",$a,$b,$c,$d,$e) eq join '->',qw(a c c d e)) {
    print "success\n";
}
else {
    print "failure\n";
}