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

foreach my $lines (@lines) {
chomp (@lines);
my @owner = split( /\:/, $lines);
my @owners = $owner[1];

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