my $entry= $pop->Entry(-textvariable => \$text,-width => "70")->pack();
    $entry->bind("<Return>", sub { &check($text) });