Select Code to Download

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

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

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

...
    print;
  }