for (@{$VAR1->{ETPT}{SERVER}}) {
   # here $_->{RESPONSE} is each response of the array
}