open(FILE, "DATA/carownerdata.txt");
my @lines=<FILE>;
close(FILE);

while ( my $lines = <@lines> ) {
chomp (@lines);
my @owner = split( /\:/, $lines);

$personRight->BrowseEntry(-width=>20,-borderwidth=>2,
        -relief=>'sunken',-textvariable=>\$perInfo->{CAROWNER},state=>'disabled',
        -foreground=>'black',-background=>'white')->pack()->insert( 'end', $owner[1]);
}