if ( grep /.+/ @_ ) {処理}
でおｋ

my @flag = grep /.+/ @_;
とかすると@flagには空でない値が全部はいる。