open IN, "<", $file or die "Can't open file $file: $!";
my %data;
while(<IN>) {
    if(1 .. 2) {
        my($number) = /([\d.]+)\s*$/;
        $data{$.} = $number;
    }
}

##</code><code>##

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

##</code><code>##

while(<DATA>) {
    if(1 .. 2 or 6 .. 8) {
        print "$.: $_";
    }
}
__DATA__
one
two
three
four
five
six
seven
eight
nine
ten

##</code><code>##

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

##</code><code>##

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