sub OK_clicked_cb {
	
my ( $widget, $entry) = @_;

	my $entry_text = $entry->get_text();
	foreach (@entry){
		my $entry_text = $entry[$i]->get_text();
		print "$entry_text";
		$i++;
	}