@consider1 = param('consider1');
...
...
  for (@consider1)
  {
    print "  $_\n";
  }