diff --git a/lib/AudioFile/Info/Ogg/Vorbis/Header.pm b/lib/AudioFile/Info/Ogg/Vorbis/Header.pm
index 6223d7b..2525739 100755
--- a/lib/AudioFile/Info/Ogg/Vorbis/Header.pm
+++ b/lib/AudioFile/Info/Ogg/Vorbis/Header.pm
@@ -53,7 +53,8 @@ sub AUTOLOAD {
   croak "Invalid attribute '$sub'" unless $data{$sub};
 
   if ($_[1]) {
-    if (grep { $_ eq $data{$sub} } $_[0]->{obj}->comment_tags) {
+    my @matches = grep { $_ eq $data{$sub} } $_[0]->{obj}->comment_tags;
+    if (@matches) {
       $_[0]->{obj}->edit_comment($data{$sub}, $_[1]);
     } else {
       $_[0]->{obj}->add_comments($data{$sub}, $_[1]);