while (%stuff_to_store) { #see if it worked by printing out each element of hash stuff_to_store
                    print; #its not working and I don't know why
                }

##</code><code>##

while (my ($k,$v)= each %stuff_to_store) { #see if it worked by printing out each element of hash stuff_to_store
                    print $_, $v; #its not working and I don't know why
                }

##</code><code>##

  push @{ $stuff_to_store{$dir_to_process}{$file} }, $_;

  # Debug print it..
  for ( @{ $stuff_to_store{$dir_to_process}{$file} } ){
    print;
  }