for my $length ( 1..$phrase_length )
{
	my $ref = ref $list[ $length ];
	$size[$length] 
          = ( $ref =~ /ARRAY/ ? @{ $list[ $length ] } : 0 );
}