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', ;
    }
}