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

##</code><code>##

Q234
         Name = INGTON
         Reference = 0099ytr

X334
         Name = MES
         Reference = 0089kkjh9

P99987
         Name = JOSPH
         Reference = 0gft5210

U7564
         Name = CHAMV
         Reference = 00gt6544

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

12349
         Name = RIC
         Reference = 00y77676


##</code><code>##

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

##</code><code>##

Name = INGTON
Reference = 0099ytr

Name = MES
Reference = 0089kkjh9

Name = JOSPH
Reference = 0gft5210

Name = CHAMV
Reference = 00gt6544

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

Name = RIC
Reference = 00y77676