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

##</code><code>##

$COLUMN_1->Button(,
          ...
          -command=>[\&ADMISSION, \%admiss, 1])
              ->pack(-side=>'top');

...

sub ADMISSION {
    my ($admiss_ref, $index) = @_;

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