print "$entry\n";

##</code><code>##

HASH(reference)

##</code><code>##

    print "  Name: ", $entry->{name}, 
          " Reference: ", $entry->{reference}, "\n";

##</code><code>##

K988777
  Name: LOE Reference: 9887hhh
  Name: TYL Reference: 00ttr54433
  Name: TLYN Reference: 099iuuy7
  Name: LEEN Reference: 0yy76767
  Name: TSY Reference: 00hyu65
  Name: ASTCIA Reference: 0dree4333
  Name: IRNDA Reference: 99877uuug

U7564
  Name: CHAMV Reference: 00gt6544

X334
  Name: MES Reference: 0089kkjh9

P99987
  Name: JOSPH Reference: 0gft5210

Q234
  Name: INGTON Reference: 0099ytr

12349
  Name: RIC Reference: 00y77676