If you're code would be less confusing, then it would be easier to help you with your actual code. But maybe all you want is:

use Tk;
$mw = tkinit;
$nb = $mw->NoteBook->pack;
$nb->add("page$_", -label => "page$_") for 1..5;
for my $page ($nb->pages) {
    my $f= $nb->page_widget($page);
    $f->Label(-text => $page)->pack;
}
MainLoop;
[download]

page_widget is not (yet) documented, but it is listed in the "public" part of Tk/NoteBook.pm, so it's probably safe to use it.