Good examples of perl cod

Hey guise im doing some perl code first time in a while you know?

Well can you show me yours like variable naming/defining subs etc.

Some nice nomenclature pls thanks.