#!/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);