foreach qw(foo bar baz bletch) { open I, ">$_"; print I $_; close I }

##</code><code>##

`touch $_` for qw(foo bar baz bletch);