while ($line = <F>) {
    chomp $line;
    ...

##</code><code>##

use strict;
use warnings;