use strict;
use warnings;

use Tk;
use Tk::MatchEntry;

my @dataa = qw/Abberley Abberton Abbotsley Accrington/;
my $place;
my $mw = MainWindow->new (-title => "i wish this would work",);
$mw->geometry ("200x70+0+0");

my $label = $mw->label ("type somthing in the box");

my $me;

$me = $mw->MatchEntry (
    -textvariable   => \$place,
    -choices    => \@dataa,
    -autosort   => 0,
    -fixedwidth => 0,
    -ignorecase => 1,
    -maxheight  => 10,
    -listwidth  => 240,
    )->pack (-side => 'left');
Tk::MainLoop ();