Select Code to Download

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

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