To safe another char, one could write

system qw(mkdir -p), $foo;

But best would be if perl had a backtick operator like lisp (that is elisp, don't know about other lisp implementations):

system `(mkdir -p ,$foo);