$i = 0;

while (@rray = $sth -> fetchrow_array) {
	$record = "record_$i";
	$hash{$record} = {uid => $rray[0], fname => $rray[1], lname => $rray[2]};
	#print $hash{$record} -> {uid}, qq/ /, $hash{$record} -> {fname}, qq/ /, $hash{$record} -> {lname}, qq/\n/;
	$i += 1;
}

my ($key, $value);

for ($i = 0; $i < 325; $i++) {
	$record = "record_$i";
	$key = keys %hash;
	$value = $hash{$record} -> {fname};
	print "key = record_$key, hash values = ", $hash{$record} -> {uid}, ", ", $hash{$record} -> {fname}, ", ", $hash{$record} -> {lname}, "\n";
}

##</code><code>##

# 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";
}