my @add=(
{
  name=>"name1 ",
  type =>"text",
  default=>" "
  value=[""],
  entries=>"M".
},
{
  name=>"name2 ",
  type=>"dropdown",
  req=>"prc",
  default=>" "
  value=["value1","value2","value3"],
  entries=>" "
}
);
[download]

Then it's just a simple matter of sending the arrayref to your template:

$tmpl->param( blah => \@add );
[download]

And then defining a template loop. Take a look at the HTML::Template docs for how to make a loop and use conditionals.

Actually, the structure doesn't need to change at all, if the hash keys don't matter much (which they don't appear to). Just "cast" your hash of hashes into an array of hashes, like this:

$tmpl->param( blah => [ values %add ] );
[download]

The values piece generates a list containing the values (which are your inner hashes) inside %add; the square brackets make that list into an ARRAYref for the use of HTML::Template.

Or, if you need to preserve the key value, you could create a map:

$tmpl->param( blah => [ map { { %{$add{$_}}, 'key' => $_ } } keys %add
+ ] );
[download]

That's a little hairy, so let me explain: the map returns a list of HASHrefs. Each of these comes from your %add hash, and is modified with a new member called 'key' with the value of the %add hash's key for the given element. Yes, that's still confusing. Here's what the resulting data structure looks like:

$VAR1 = [
          {
            'req' => 'prc',
            'value' => [
                         'value1',
                         'value2',
                         'value3'
                       ],
            'entries' => ' ',
            'name' => 'name2 ',
            'type' => 'dropdown',
            'default' => ' ',
            'key' => 'hash2'
          },
          {
            'value' => [
                         ''
                       ],
            'entries' => 'M',
            'name' => 'name1 ',
            'type' => 'text',
            'default' => ' ',
            'key' => 'hash1'
          }
        ];
[download]

<-radiant.matrix->
A collection of thoughts and links from the minds of geeks
The Code that can be seen is not the true Code
"In any sufficiently large group of people, most are idiots" - Kaa's Law

$tmpl->param( blah => [ values %add ] );
[download]

That has the disadvantage of ending up with an unknown order of values, and my assumption (based on the hash key names) was that the OP wanted an ordered list. One could certainly do this, though:

$tmpl->param( blah => [ map { $add{$_} } sort keys %add ] )
[download]

[% FOREACH element = add.keys %]
  [% IF add.$element.type == "text" %]
    <input type="text" name="[% add.$element.name %]" value="[% add.$e
+lement.default %]">
  [% ELSIF add.$element.type == "dropdown" %]
    <select name="[% add.$element.name %]">
      [% FOREACH option = add.$element.value %]
        <option value="[% option %]">
          [% option %]
        </option>
      [% END %]
    </select>
  [% END %]
  <br> [% # put a line break between the form elements %]
[% END %]
[download]

hi thanks for your suggestion i tried to pass the hash of hashes i constructed

as $template->process($file,%add)
    || die $template->error();

for my hash my %add=(
hsh1=>{
  name=>"name1 ",
  type =>"text",
  default=>" ",
  value=>[" "],
  entries=>"M"
},
hsh2=>{
  name=>"name2 ",
  type=>"dropdown",
  req=>"prc",
  default=>" ",
  value=>["value1","value2","value3"],
  entries=>" "
}
);
 for your code 

[% FOREACH element = add.keys %]
  [% IF add.$element.type == "text" %]
    <input type="text" name="[% add.$element.name %]" value="[% add.$e
+lement.default %]">
  [% ELSIF add.$element.type == "dropdown" %]
    <select name="[% add.$element.name %]">
      [% FOREACH option = add.$element.value %]
        <option value="[% option %]">
          [% option %]
        </option>
      [% END %]
    </select>
  [% END %]
  <br> [% # put a line break between the form elements %]
[% END %]
[download]

but i get following error, Content-type: text/html Can't use string ("hsh2") as a HASH ref while "strict refs" in use at /usr/cisco/packages/perl/perl-5.8.6/lib/site_perl/5.8.6/sun4-solaris/Template/Service.pm line 79. i also tried to pass the reference as $template->process($file,\%add) || die $template->error(); but nothing is substituted in the html file.can u help me how to pass my hash to the html file or i need to change the above code.please help me in this regard. Thanks, srins.