Added foreach snippet for perl-mode.