As pointed out above, the error is caused by the missing semi-colon on your now-commented use statement.

Other suggestions:

• If you are going to use directories to separate the files, they don't need to have the same numbers in the file names. I would prefer:

  ->dir1->file.txt
  ->dir2->file.txt
  ->dir3->file.txt
  [download]

  or:

  ->dir->file1.txt
       ->file2.txt
       ->file3.txt
  [download]

  But it is redundant to have:

  ->dir1->file1.txt
  ->dir2->file2.txt
  ->dir3->file3.txt
  [download]

• You can't use perl -e inside a script: that's for invoking perl on the command line.
• map() is just a fancy for loop that you don't always need:

  use File::Path qw/ make_path /;
  make_path( $_ ) for 1 .. 20;
  [download]

Hope this helps!