%new_stuff = ("RATING" => 4.99);
   &db_modify_account("jdonald", %new_stuff);


   sub db_modify_account
   {
        my %new_data = @_;
        while (($key, $value) = each %new_data)
        {
           print "The $key is: $value.<BR>";
	}
   }