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