Add anagram solution

Author: m-dango

exercises/practice/anagram/.meta/exercise-data.yaml

@@ -9,7 +9,14 @@ tests: |-
 example: |-
   sub match_anagrams {
     my ($input) = @_;
-    return [];
+
+    return [
+      grep {
+        lc $_ ne lc $input->{subject}
+          && join( '', sort( split( //, lc $_ ) ) ) eq
+          join( '', sort( split( //, lc $input->{subject} ) ) )
+      } @{ $input->{candidates} }
+    ];
   }
 
 stub: |-

exercises/practice/anagram/.meta/solutions/Anagram.pm

@@ -6,7 +6,14 @@ our @EXPORT_OK = qw<match_anagrams>;
 
 sub match_anagrams {
   my ($input) = @_;
-  return [];
+
+  return [
+    grep {
+      lc $_ ne lc $input->{subject}
+        && join( '', sort( split( //, lc $_ ) ) ) eq
+        join( '', sort( split( //, lc $input->{subject} ) ) )
+    } @{ $input->{candidates} }
+  ];
 }
 
 1;