Help for this page

Select Code to Download

Select or download this

use strict;
use warnings;
...
my @aoa = map {[$_, qw(US M10 WEDNESDAY SEASONAL)]} @dlr_loc;

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

Select or download this

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