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

##</code><code>##

Can't use an undefined value as an ARRAY reference at anagram.pl line 34.

##</code><code>##

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