my @data = ('valueA','valueB','valueC','valueD');
# or
my @data = qw(valueA valueB valueC valueD);

my %data;
$data{'keyA'} = 'valueA';
$data{'keyB'} = 'valueB';
$data{'keyC'} = 'valueC';
$data{'keyD'} = 'valueD';