#!/usr/bin/env perl 
use strict;
use warnings;

my @names = qw/XX AA BC DD/;
print "@names\n";