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

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