Select Code to Download

#!/usr/bin/perl

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