perl -le '@g = qw(a b c); @h = qw(d e); @f = @g || @h; print @f'
3
perl -le '@g = qw(     ); @h = qw(d e); @f = @g || @h; print @f'
de