{
  my $page  = 'abc';
  my $error = 'def';

  push(@incl,"&CreateLogInForm(\$page,\$error)");

  $page  = 'ghi';
  $error = 'jkl';
}

foreach $incl (@incl) {
  my $page  = 'mno';
  my $error = 'pqr';
  $page .= eval $incl;   # Uses 'mno' and 'pqr'
}