$cnt2 = 0;
	my $dbfields = $dbh->selectcol_arrayref ("SHOW COLUMNS FROM lead");
	push ( @$dbfields, 'SKIP');
	foreach my $field ( @file_fieldnames ) {
		$pg->Label(-relief => 'sunken', -width => 15, -text => $field)->grid(my $brb = $pg->BrowseEntry(-variable => \$map_fields[$cnt2]));
		$brb->insert('end', @$dbfields);
		$cnt2++;
	}

##</code><code>##

	@map_fields = split ( ",", $ifg->{parameter} );