простенький вопрос по перл.

- if ($query{"key"} == 0x41) { + if ($query{"key"} == '\x41' ) {

Тогда делаю

%query=("key","A");
if ($query{"key"} ==  '\x41') {
 print "yes\n";
}
if ($query{"key"} ==  '\x51') {
 print "yes";
}

Получаю два раза "yes"

s/==/eq/

s/'/"/

%query=("key","A");
if (ord($query{"key"})==0x41){
#  ^^^^^ 
    print "yes";}
else {
    print "no";}