Die Daten sind ueblicherweise schon in Perl-Variablen gespeichert, wenn du mit -textvariable und -variable arbeitest. Fuer Widgets, die -variable nicht unterstuetzen (z.B. Tk::Text) gibt es meistens eine get()-Methode zum Auslesen.
Fuer das naechste Toplevel kannst du entweder das alte wiederverwenden, indem du alle alten Widgets zerstoerst
$_->destroy for ($toplevel->children)
oder du zerstoerst das ganze Toplevel per $toplevel->destroy und erzeugst das neue. Der erste Ansatz ist evtl. schoener, da die Gefahr des "Herumspringens" des Dialogs vermieden wird.
Uebrigens: Es gibt ein Tk::Wizard-Modul auf dem CPAN.