use strict;
use warnings;

my @dlr_loc = qw(A060 A061 A062 A063 A064);
my @aoa = map {[$_, qw(US M10 WEDNESDAY SEASONAL)]} @dlr_loc;

print "@$_\n" for @aoa;