my @lists = ();

for (0..1) {
  $lists[$_]->header('create', 0, -text => "Header");
  $lists[$_]->columnWidth(0, 50);
  $lists[$_]->header('create', 1, -text => "Header2");
  $lists[$_]->columnWidth(1, 80);
  $lists[$_]->header('create', 2, -text => "Header3");
  $lists[$_]->columnWidth(2, 80);
}