sub roomSub {
  if (! Exists ($roomTl)) {  warn "textvariable"; 
#~     $roomTl = $mw->Toplevel();
    $roomTl = $mw->Dialog();
    $roomTl->Entry(
      -textvariable => \$window{xAf},
    )->pack(-fill => 'x');
  }
  $roomTl->Show();
}