The problem with that is that the code will produce an incorrect result in the case:

my @list={"a","aaaa","aa","aaaaaaaa","a"};

In the above (admittedly pathological) case, it would report all equal when this is not true.