Select Code to Download

#!/usr/bin/perl

use warnings;
...
    my $res = $ua->request($req);
    my $ref = XMLin($res->content, KeyAttr => "oid");
    foreach my $oid (values %{$ref->{OBJECT}}) {

 my $reference;
            foreach my $entry (@{$oid->{PROPERTY}}) {
                if ($entry->{name} =~ /^($idName)$/) {
...
    exit ($res - 1);
}

 $VAR1 = {
          'OBJECT' => {
                        'PROPERTY' => [
...
        };

Not a HASH reference at ./hp-msa.pl line 19.