$ perl -e '@x=qw(foo 18);&mkdir(@x)';ls
Undefined subroutine &main::mkdir called at -e line 1.