#Select fieldnames from accfields table in @fields.
my @fields = getMultiRows($sql,1,$dbh); ##A saperate perl routine to extract data.

my $fields = join(",",@fields);

$sql = "SELECT $fields FROM tran WHERE account=?";
my $sth   = $dbh->prepare($sql); 
if(!$sth){$err= "Error preparing query " . $sql . " : ". $dbh->errstr;}  
if(!$sth->execute(177)){$err = "Error Executing query " . $sql . " : ". $dbh->errstr;}
my %rows = $sth->fetchrow_hashref;

# Now i get the html template and want to populate html form fields with data extracted. All form field names are same as   table column name.

foreach(@fields){
    $template->param($_=>$rows{$_});
  }
return $template->output;