- Added solution by Robert DiCicco.

1 files changed, 25 insertions, 0 deletions

diff --git a/challenge-149/robert-dicicco/perl/ch-1.pl b/challenge-149/robert-dicicco/perl/ch-1.pl
new file mode 100644
index 0000000000..f8ea776ef0
--- /dev/null
+++ b/challenge-149/robert-dicicco/perl/ch-1.pl
@@ -0,0 +1,25 @@
+#!perl.exe
+
+use strict;
+use warnings;
+use experimental 'say';
+use List::Util qw(sum0);
+use Math::Fibonacci qw(isfibonacci);
+
+### Author: Robert DiCicco
+### Date: 25-JAN-2022
+### Challenge 149  Fibonacci Digit Sum (Perl)
+
+my $fibcnt = 20;
+my @expected = (0, 1, 2, 3, 5, 8, 10, 11, 12, 14, 17, 20, 21, 23, 26, 30, 32, 35, 41, 44);
+
+my $cnt = 0;
+while($fibcnt){
+    my $sumval = SingleSumOfDigits($cnt);
+    if(isfibonacci($sumval)){
+        print("$cnt ");
+        $fibcnt--;
+    }
+
+    $cnt++;
+}