fooling around modern perl