pack => '@pk = @dates; @pk = map {join "/", unpack "A2 A2 A2", $_} @pk'