perl log hash yasnippet