sub Vars {
    my $self = shift;
    my @hash_list = ();
    my @params = $self->param;
    for my $param(@params) {
        my @values = $self->param($param);
        push @hash_list, ($param, (join /\000/, @values));
    }
  return @hash_list;
}

##</code><code>##

sub Vars {
    my $self = shift;
    my @hash_list = ();
    my @params = $self->param;
    for my $param(@params) {
        my @values = $self->param($param);
        push @hash_list, ($param, (join "\0", @values));
    }
  return @hash_list;
}