Select Code to Download

$admiss_ref->{name} = $namefield->Text(-width=>30,-height=>1)->pack();

$COLUMN_1->Button(,
          ...
...

    $admiss_ref->[$index]{name} = ...
}