@select = (
['AAA','A Description',1,0],
['BBB','B Description',0,0],
['CCC','C Description',0,0],
['DDD','D Description',1,0],
['EEE','E Description',1,0],
);

for (my $i=0; $i<@select; $i++)
{
	$length++ if($select[$i][2]);
}

print "\nSelective Length : ", $length; 
=output
3
=cut