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