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