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

##</code><code>##

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