...

sub subbie_1 {
    my ($widget, $txt) = @_;

    $txt->insert('end', $widget->get () . "\n");
}


...

$ent->bind('<Return>' => [\&subbie_1, $txt]);

MainLoop();