my $startrange = 'AC23D';
my $endrange = 'D25ET';
my $givenvalue = 'C3RK5';

if ( (sort $startrange,$givenvalue,$endrange)[1] eq $givenvalue ) {
    print "This is OK\n";
}