add new snippets for perl