Сравнение элементов массива между собой в perl

[Darnet]

Вот такая ситуация, есть массив с пятью переменными, не подскажите как можно сравнить их между собой и в случаи равенства возвращать результат.

[Хостинг HostFood.ru]

Тарифы на хостинг в России, от 12 рублей: https://www.host-food.ru/tariffs/hosting/
Тарифы на виртуальные сервера (VPS/VDS/KVM) в РФ, от 189 руб.: https://www.host-food.ru/tariffs/virtualny-server-vps/
Выделенные сервера, Россия, Москва, от 2000 рублей (HP Proliant G5, Intel Xeon E5430 (2.66GHz, Quad-Core, 12Mb), 8Gb RAM, 2x300Gb SAS HDD, P400i, 512Mb, BBU):
https://www.host-food.ru/tariffs/vydelennyi-server-ds/
Недорогие домены в популярных зонах: https://www.host-food.ru/domains/

[ProFTP]

т.е. вам нужно удалить или найти дубликаты...?
как правло достаточно в многих случаях найти конкретный элемент, а в чем смысл вашей заморочки? или может я не понял...

UPD: короче, можете найти дубликаты и сделать с ними то что хотите...

[Darnet]

Нет найти дубликаты, а сравнить все элементы массива и если они равны вернуть значение.

Вот например я набросал:

Код: Выделить всё

@array = [1,1,2]

if(array[0] = array[1] && array[1] = array[2] && array[2] = array[3] ....)

Так записать не могу потому что количество элементов в массиве может быть разное.

[ProFTP]

Код: Выделить всё

#!/usr/bin/perl
                            
use Quantum::Superpositions;

 @a = (a,a,a);

print 1 if ( any(@a) eq all(@a) ) ;

[Darnet]

Спасибо все получилось.