diff --git a/lib/DDG/Goodie/ChordDiagrams.pm b/lib/DDG/Goodie/ChordDiagrams.pm
index 45082616e..5d45f1d18 100644
--- a/lib/DDG/Goodie/ChordDiagrams.pm
+++ b/lib/DDG/Goodie/ChordDiagrams.pm
@@ -194,7 +194,8 @@ sub get_chord {
     my $chords = shift;
     foreach(@$chords) {
         if (grep(/^$chord$/, @{%$_{'root'}})) {
-            foreach(@{%$_{'types'}}) {
+            my @types = @{%$_{'types'}};
+            foreach(@types) {
                 if(%$_{'name'} eq $mod_name) {
                     return(\@{%$_{'variations'}});
                 }