#!/usr/bin/perl

use strict;
use warnings;

my $item1 = 'foo';
my $item2 = 'foo';

my @list = ($item1, $item2);

my $item3 = 'foo';

if ( scalar (grep { $_ eq $item3 } @list) == scalar @list) {
    print "All are equal.\n";
}