while (@rray = $sth -> fetchrow_array) {
	$record = "record_$i";
	$hash1{fname} = $rray[1];
	$hash2{$record} = %hash1;
	$i += 1;
}

while (($key, $value) = each(%hash2)) {
	print $hash2{$value} -> {fname};
}