sub db_get {
..
..
    # fetch the rows into an array reference
    while ( $retstat = $sth->fetchrow_hashref ) {      
        push @retval, [$retstat];
    }
..
..
return @retval
}

##</code><code>##

    my $value = $ary[0][0]->{<key>}
    # to Shorten it (so it's not so hard to type) 
    my %short = %{$ary[0][0]};