Select Code to Download

foreach my $key (keys %$VAR1) {
    print "$key\n";
...
        print "\t Reference = $valref->{reference}\n\n";
    }
}

Q234
         Name = INGTON
...
         Name = RIC
         Reference = 00y77676

foreach my $vals (values %$VAR1) {
    foreach my $valref (@$vals) {
...
        print "Reference = $valref->{reference}\n\n";
    }
}

Name = INGTON
Reference = 0099ytr
...

Name = RIC
Reference = 00y77676