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