my $mw = tkinit;

dialog( $mw, $titel, $text );

MainLoop;


sub dialog{
    my ($mw,$title,$text) = @_;
    my $dialog = $mw->Dialog(...);
    # alles zum Dialog
    if( $antwort eq 'yes' ){
        my @daten = eingabe( $mw );
    }
}

sub eingabe{
    my ($mw) = @_;

    my $top = $mw->Toplevel(...);
    # alles was Du mit $mw gemacht hast, jetzt halt mit $top;
    # und kein MainLoop mehr...
}