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