@v = (1,2,3,4,5);

map { $set{$_} = 1 } @v;

# Elements are equal, unless set contains more than one element
@k = keys %set;
print "All elements are equal" unless $#k != 1;