use constant CODE=>0;
use constant SUBCODE=>1;
...

##</code><code>##

use constant {
	CODE=>0, SUBCODE=>1, ....
};

##</code><code>##

if( $response[CODE] == 20 and 
     $response[SUBCODE] == 55 ) {
     # Do something appropriate
}

##</code><code>##

if( "@response[CODE, SUBCODE]" eq '20 55' ) {
    # do stuff
}