diff --git a/plugins/apache/apache_vhosts/apache_pipelogger b/plugins/apache/apache_vhosts/apache_pipelogger
index 09e39617..73c73eee 100644
--- a/plugins/apache/apache_vhosts/apache_pipelogger
+++ b/plugins/apache/apache_vhosts/apache_pipelogger
@@ -95,7 +95,7 @@ sub periodic_write {
                 $old{$vpm}{'avg_bytes'}=sprintf("%d",($old{$vpm}{'avg_bytes'}+$temp{$vpm}{'avg_bytes'})/2);
 
                 # reset local counters
-                foreach my $check qw(requests bytes time cml_time max_bytes avg_bytes max_time avg_time) {
+                foreach my $check (qw(requests bytes time cml_time max_bytes avg_bytes max_time avg_time)) {
                         $temp{$vpm}{$check}=0;
                 }
 
diff --git a/plugins/netscaler/snmp__netscaler_cpu b/plugins/netscaler/snmp__netscaler_cpu
index 34dc2f2c..e0ad7bb5 100755
--- a/plugins/netscaler/snmp__netscaler_cpu
+++ b/plugins/netscaler/snmp__netscaler_cpu
@@ -160,7 +160,7 @@ if ($ARGV[0] and $ARGV[0] eq "config") {
         print_thresholds($v);
     }
 
-    for my $field qw(avg) {
+    for my $field (qw(avg)) {
         print_thresholds($field);
     }
     &close_session($session);
diff --git a/plugins/squeezebox/squeezebox_multi b/plugins/squeezebox/squeezebox_multi
index 62fe34e7..9c49ea8c 100755
--- a/plugins/squeezebox/squeezebox_multi
+++ b/plugins/squeezebox/squeezebox_multi
@@ -139,7 +139,7 @@ my $converter = Text::Iconv->new("UTF-8", "LATIN1");
 # $converted = $converter->convert("Text to convert");
 
 # First all the simple readings
-foreach my $attr qw (albums artists genres songs) {
+foreach my $attr (qw(albums artists genres songs)) {
   $conn->print ("info total ${attr} ?");
   my $line = uri_unescape($conn->getline);
   if ($line =~ /^info total ${attr} (\d+)$/) {