for ('A' .. 'Z') {
    if(my $counter = ($_ eq 'F' .. $_ eq 'J')) {
        print "$counter: $_\n";
    }
}

##</code><code>##

for ('A' .. 'Z') {
    if((my $first = $_ eq 'F') .. (my $last = $_ eq 'J')) {
        printf "%s first:%s last:%s\n", $_, $first?'yes':'no', $last?'yes':'no', ;
    }
}

##</code><code>##

for (1 .. 8) {
    if((my $first = $_ % 3 == 0) .. (my $last = $_ % 3 == 0)) {
        printf "%s first:%s last:%s\n", $_, $first?'yes':'no', $last?'yes':'no', ;
    }
}

##</code><code>##

for (1 .. 8) {
    if((my $first = $_ % 3 == 0) ... (my $last = $_ % 3 == 0)) {
        printf "%s first:%s last:%s\n", $_, $first?'yes':'no', $last?'yes':'no', ;
    }
}