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;

##</code><code>##

A060 US M10 WEDNESDAY SEASONAL
A061 US M10 WEDNESDAY SEASONAL
A062 US M10 WEDNESDAY SEASONAL
A063 US M10 WEDNESDAY SEASONAL
A064 US M10 WEDNESDAY SEASONAL