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

##</code><code>##

while (<PHILE>)
{
    chomp;
    my @werdz = split;
    analyze( scalar @werdz, @werdz );
}