LENGTH OF VECTOR PERL