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