diff --git a/src/Parser/IRC.pm b/src/Parser/IRC.pm
index d2ffe62..f24779c 100644
--- a/src/Parser/IRC.pm
+++ b/src/Parser/IRC.pm
@@ -55,15 +55,11 @@ sub num001
 		# For single-line ajoins.
 		my @sajoin = split(',', $cajoin[0]);
 		
-		foreach my $sjoin (@sajoin) {
-			cjoin($svr, $sjoin);
-		}
+		cjoin($svr, $_) foreach (@sajoin);
 	}
 	else {
 		# For multi-line ajoins.
-		foreach my $sjoin (@cajoin) {
-			cjoin($svr, $sjoin);
-		}
+		cjoin($svr, $_) foreach (@cajoin);
 	}
 }