Since only one will be used, you could just wrap your formats in eval "". Or use IO::Handle or FileHandle, give the formats different names, and say STDOUT->format_name("whatever"); before the write (whatever will be qualified with the current package.)