changed perl snippets to match perl preferred practises (issue#72)

snippets/perl.snippets

@@ -1,6 +1,6 @@
-# #!/usr/bin/env perl
+# #!/usr/bin/perl
 snippet #!
-	#!/usr/bin/env perl
+	#!/usr/bin/perl
 
 # Hash Pointer
 snippet .
@@ -19,16 +19,19 @@ snippet if
 snippet ife
 	if (${1}) {
 		${2:# body...}
-	} else {
+	}
+	else {
 		${3:# else...}
 	}
 # Conditional if..elsif..else
 snippet ifee
 	if (${1}) {
 		${2:# body...}
-	} elsif (${3}) {
+	}
+	elsif (${3}) {
 		${4:# elsif...}
-	} else {
+	}
+	else {
 		${5:# else...}
 	}
 # Conditional One-line
@@ -58,18 +61,21 @@ snippet wh
 # While Loop One-line
 snippet xwh
 	${1:expression} while ${2:condition};${3}
-# For Loop
+# C-style For Loop
-snippet for
+snippet cfor
 	for (my $${2:var} = 0; $$2 < ${1:count}; $$2${3:++}) {
 		${4:# body...}
 	}
+# For loop one-line
+snippet xfor
+	${1:expression} for @${2:array};${3}
 # Foreach Loop
-snippet fore
+snippet for
 	foreach my $${1:x} (@${2:array}) {
 		${3:# body...}
 	}
 # Foreach Loop One-line
-snippet xfore
+snippet fore
 	${1:expression} foreach @${2:array};${3}
 # Package
 snippet cl