Add anagram solution

Author: m-dango

exercises/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/anagram/.meta/solutions/Anagram.pm

@@ -1,12 +1,19 @@
 package Anagram;
 use strict;
 use warnings;
-use Exporter 'import';
-our @EXPORT_OK = qw(match_anagrams);
+use Exporter qw<import>;
+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;

exercises/anagram/Anagram.pm

@@ -1,8 +1,8 @@
 package Anagram;
 use strict;
 use warnings;
-use Exporter 'import';
-our @EXPORT_OK = qw(match_anagrams);
+use Exporter qw<import>;
+our @EXPORT_OK = qw<match_anagrams>;
 
 sub match_anagrams {
   my ($input) = @_;

exercises/anagram/anagram.t

@@ -3,15 +3,15 @@ use Test2::V0;
 use JSON::PP;
 use constant JSON => JSON::PP->new;
 
-use FindBin qw($Bin);
+use FindBin qw<$Bin>;
 use lib $Bin, "$Bin/local/lib/perl5";
 
 use Anagram qw(match_anagrams);
 
 my @test_cases = do { local $/; @{ JSON->decode(<DATA>) }; };
 plan 15;
 
-imported_ok qw(match_anagrams) or bail_out;
+imported_ok qw<match_anagrams> or bail_out;
 
 for my $case (@test_cases) {
   is match_anagrams( $case->{input} ), $case->{expected},