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