Select Code to Download

do BLOCK while COND;

do BLOCK

EXPR while COND;

$ perl -E'last while 1;'
Can't "last" outside a loop block at -e line 1.
...

$  perl -E'do { last; } while 1;'
Can't "last" outside a loop block at -e line 1.

for (;;) {
    my $line = <KNOME>;
...

    print OUTFILE "$chr\t$pos\n";
}

while (defined( my $line = <KNOME> )) {
    chomp $line;
...

    print OUTFILE "$chr\t$pos\n";
}