diff --git a/lib/Net/Amazon/S3/Request/ListBucket.pm b/lib/Net/Amazon/S3/Request/ListBucket.pm
index a2c5479d..d9f18581 100644
--- a/lib/Net/Amazon/S3/Request/ListBucket.pm
+++ b/lib/Net/Amazon/S3/Request/ListBucket.pm
@@ -19,7 +19,7 @@ sub http_request {
     my $path = $self->bucket . "/";
 
     my @post;
-    foreach my $method qw(prefix delimiter max_keys marker) {
+    foreach my $method (qw(prefix delimiter max_keys marker)) {
         my $value = $self->$method;
         next unless $value;
         my $key = $method;