in reply to (ar0n) Re (2): Fastest way to compare multiple variables?
in thread Fastest way to compare multiple variables?

if ( !grep $_ != $list[0], @list ) {
    &do_something;
}

[download]
... probably clearer, definitely probably faster :) 
   MeowChow                                   
               s aamecha.s a..a\u$&owag.print

In Section Seekers of Perl Wisdom