add perl hash param test