if ($response_community ne $this->{community}
        || ($response_id) != $this->{request_id})) {
    # ...
 }

##</code><code>##

print "$response_community $this->{community} $response_id $this->{request_id}\n";
# produces
snmpfoo snmpfoo 2325544852 -1969422444

##</code><code>##

  if ($response_community ne $this->{community}
        || pack('l',$response_id) ne pack('l',$this->{request_id})) {
    # ...
  }