Grandfather's answer works well, but if you're new to Perl, you might find this more understandable

my @another_array;
for ( @dir_loc )
{
  push @another_array, [ $_, qw/US M10 WEDNESDAY SEASONAL/ ]
}
[download]

You can access this new array using something like:

print $another_array[2][3];
#WEDNESDAY
[download]