I'm not familiar with this TK module, but perhaps it is expecting a simple array as input? Your @dataa is an array consisting of one element. That one element is an array consisting of 4 elements. I think you are probably looking for a simple array of 4 elements.

Try this:

#!/usr/bin/env perl

use warnings;
use strict;
use Data::Dumper;

#my @dataa = [ qw/Abberley Abberton Abbotsley Accrington/];
my @dataa = qw/Abberley Abberton Abbotsley Accrington/;
print Dumper(\@dataa);
[download]