#!/usr/bin/env perl

use strict;
use warnings;

use Tk;
use Tk::BrowseEntry;

my $mw = MainWindow->new;

my $ctrl_F = $mw->Frame->pack(-side => 'bottom');
$ctrl_F->Button(-text => 'Exit', -command => sub { exit })->pack;

my $app_F = $mw->Frame->pack(-side => 'top');
my $be = $app_F->BrowseEntry->pack;

while (<DATA>) {
    chomp;
    $be->insert(end => (split /:/)[1]);
}

MainLoop;

__DATA__
prefix:Owner A
prefix:Owner B
prefix:Owner C