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