#!/usr/bin/perl

# ...

system ("mkdir", "-p", map { "$dir/$_" } @files);