foreach my $tabname(keys %tabs){
     my $savetxt = $tabs{$tabname}{'textbox'}->get("1.0","end");
     chomp $savetxt;
     
     # now save it wherever you want, open a file or write to a database.