foreach my $first (@first_directory){
  my @store_array = qw (1 2 3 4 5 6); # here
  while(my ($i,$j) = splice(@store_array,0,2)){
    my $second_directory = "$first/$i/$j";
  ..