Select Code to Download

open IN, "<", $file or die "Can't open file $file: $!";
my %data;
...
        $data{$.} = $number;
    }
}

if(1 .. 2 or 6 .. 8) {

while(<DATA>) {
    if(1 .. 2 or 6 .. 8) {
...
eight
nine
ten

if(1 .. 2 or 4 == $. or 6 .. 8) {

if(1 .. 2 or 4 .. 4 or 6 .. 8) {