I dunno--you're clocking in at 200 microseconds an invocation. That's really not bad...

It's not going to make a huge difference, but you might want to make sure that autoflush is off for the filehandle in $fh. It won't save much, but everything counts I suppose.