Use File::Path, a core module, which provides make_path. Also, map comes in handy here -- make_path can create several directories at once, so you can save the foreach:

use File::Path qw/make_path/;

# ...

make_path map { "$dir/$_" } @files;
[download]