Select Code to Download

sub db_get {
..
...
..
return @retval
}

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