$ perl -e '@x=qw(foo 18);sub mkdir{CORE::mkdir($_[0],$_[1])};mkdir(@x)';ls
2