my $tl=$mw; -->my main window ref
    $popup;
   if (! Exists $popup) {
      $popup=$tl->Toplevel(-width=>"200",-height=>"20");
      $popup->geometry("500x200");

  # creating frames in toplevel  
  
$lframe=$popup->Frame(-width=>"25")->pack(-side=>"left",-fill=>"y");
      $rframe=$popup->Frame(-width=>"25")->pack(-side=>"right",-fill=>"y");

 # Creating Labels
      $lframe->Label(-text=>"Name", -relief=>'raised')->pack(-side=>"left");
      $popup->Label(-text=>"Bday", -relief=>'raised')->pack(-side=>"left");
      $popup->Label(-text=>"mob", -relief=>'raised')->pack(-side=>"left");
      $popup->Label(-text=>"email", -relief=>'raised')->pack(-side=>"left");

 # Creating Entries
      $popup->Entry()->pack(-side=>"right");
      $popup->Entry()->pack(-side=>"right");
      $popup->Entry()->pack(-side=>"right");
      $popup->Entry()->pack(-side=>"right");

     }
     else {
    $popup->deiconify;
    $popup->raise;
     }