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