BTW,

while (<F>) {
    
        @lines=(<F>);
            
            }
[download]

is better simply written as

@lines = <F>;
[download]

(this way, you also wouldn't skip the first line...)