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

for ($i = 0; $i < 100; $i++) {
	print $hash{$i} -> {uid}, qq/ /, $hash2{$i} -> {fname}, qq/ /, $hash2{$i} -> {lname}, qq/\n/;
}