sub OK_clicked_cb {

	my ( $widget, $entry) = @_;
	
	##Testing stuff
	my $vbox4 = $builder->get_object('vbox4'); #Have 5 elements, but need 4
	my @children = $vbox4->get_children('vbox4'); #Line 40
	print "@children\n";
	
	my $i = 0;

	for ($i < 3){
		my $entry_text = $children[$i]->get_text();
		print "$entry_text\n";
		$i++;
	}
}