use List::Util qw( sum );

if( 1 == sum( map { !!$_ } @inputs) ) {
   ... 
}