adapt to modern perl and use barewords for hash keys