# get number of records in %hash
my $href = \%hash;
my $records = scalar keys %$href;

# print data from all records
for ($i = 0; $i < $records; $i++) {
	$record = "record_$i";
	print "key = $record, hash values = ", $hash{$record} -> {uid}, ", ", $hash{$record} -> {fname}, ", ", $hash{$record} -> {lname}, "\n";
}