if(undef, undef){
    print "OK1\n";
}

if( (undef, undef) ){
    print "OK2\n";
}

my @a = (undef, undef);
if(@a){
    print "OK3\n";
}