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

my ($key, $value);

while (($key, $value) = each(%hash)) {
	print "key = $key, value = $value\n";
}