$tk{right_frame}->pack(qw/-side right -fill both -expand 1/);
$tk{entry_box_lable}->pack(qw/-side left -fill both/);
$tk{entry_box}->pack(qw/-side top -fill both -expand 1/);

$tk{table}->pack(qw/-side top -fill both -expand 1/);