# issue query
my $sth = $dbh -> prepare("SELECT uid, fname, lname FROM users") || &bail_out("Error: cannot prepare DB query");
$sth -> execute() || &bail_out("Error: cannot execute DB query");

##</code><code>##

while (@rray = $sth -> fetchrow_array) {
	$row{uid} = $rray[0];
	$row{fname} = $rray[1];
	$row{lname} = $rray[2];
	push @rows, %row;
}

foreach (@rows) {
	print "$_\n";
}

##</code><code>##

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

##</code><code>##

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