my $tmp = {
    NameTag => $nametag,
    Name    => $name,
    Params  => \@params,
};

##</code><code>##

sub CreateString {
    ( my $self, my $hash ) = @_;

    my $str = "A|"
          . $hash->{'NameTag'} . "|"."Command"."|"         
          . $hash->{'Name'} . "|"
          . join( "|", @{ $hash->{ Params } } );

    return ($str);
}

##</code><code>##

my $InputRequest = $Obj->CreateString({
                                NameTag => $nametag,
                                Name    => $name,
                                Params  => \@params,
                            });