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

Not to detract from the excellent points you make, but you could have also done:

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

SMEFTAOYT ;)