in reply to Frequency Analysis with Lists

while (@interval=<PHILE>){
    foreach $line(@interval){
    chop $line;
    @werdz=split(/ / ,$line);
    $space=@werdz;
    analyize($space,@werdz);
                }
}

[download]
is much better written as 
while (<PHILE>)
{
    chomp;
    my @werdz = split;
    analyze( scalar @werdz, @werdz );
}

[download]

You also really need to look at adding strict and warnings to your code. *winces*

Being right, does not endow the right to be rude; politeness costs nothing.
Being unknowing, is not the same as being stupid.
Expressing a contrary opinion, whether to the individual or the group, is more often a sign of deeper thought than of cantankerous belligerence.
Do not mistake your goals as the only goals; your opinion as the only opinion; your confidence as correctness. Saying you know better is not the same as explaining you know better.

In Section Seekers of Perl Wisdom