$size[$_] = @{ $list[ $_ ] } for 1..$phrase_length;