sub profile {
   my ($dbh, $sql, $cgi, $cache) = @_;
   my $first_name = $cgi->param(...);
   my $last_name = $cgi->param(...);
   my $city_name = $cgi->param(...);
   my $tier_name = $cgi->param(...);
   my $phone_prv = $cgi->param(...);
   my $phone_mbi = $cgi->param(...);
   my $phone_biz = $cgi->param(...);

   # hier entstehen viele weiter Variablen, nicht alle aus $cgi, viele auch aus Unterprozessen, Abfragen und Rechenergebnisse.

   my @fields = (...);
   my %where = (...);
   my @tables = (...);
   my @order = (...);
   my ($stmt, @bind) = $sql->select(\@tables, \@fields, \%where, \@order);
   my $sth = $dbh->prepare($stmt);
   $sth->execute(@bind)
       or die $errors->output($DBI::errstr);

   my @fields2 = (...);
   my %where2 = (...);
   my @tables2 = (...);
   my @order2 = (...);
   my ($stmt2, @bind2) = $sql->select(\@tables2, \@fields2, \%where2, \@order2);
   my $sth2 = $dbh->prepare($stmt2);
   $sth2->execute(@bind2)
      or die $errors->output($DBI::errstr);
 
   my @fields3 = (...);
   my %where3 = (...);
   my @tables3 = (...);
   my @order3 = (...);
   my ($stmt3, @bind3) = $sql->select(\@tables3, \@fields3, \%where3, \@order3);
   my $sth3 = $dbh->prepare($stmt3);
   $sth3->execute(@bind3)
       or die $errors->output($DBI::errstr);
}