#!/usr/bin/perl
use strict;
use warnings;
use Data::Dumper;
use Math::Fibonacci qw( isfibonacci );

my $string = '377';

sub mySubString {
    my ($string, $offset, $length) = @_;
    return substr $string, $offset, $length;
}

sub fibonacciCompare {
    my ($s, $iteration) = @_;
    my @matched;
    for (1..length($s)) {
	my $inToCompare = mySubString($s, $iteration, $_);
	my $fibonacci = isfibonacci($inToCompare);
	push @matched, "Matched: $inToCompare" if ($fibonacci);
    }
    return \@matched if $matched[0];
}

my $final = fibonacciCompare($string, 0);
print Dumper $final if $final;

__END__

$ perl test.pl
$VAR1 = [
          'Matched: 3',
          'Matched: 377'
        ];

##</code><code>##

#!/usr/bin/perl
use strict;
use warnings;
use Data::Dumper;
use feature 'say';
use Math::Fibonacci qw( isfibonacci );

sub mySubString {
    my ($string, $offset, $length) = @_;
    return substr $string, $offset, $length;
}

sub fibonacciCompare {
    my ($s, $offset) = @_;
    my @matched;
    for (1..length($s)) {
	my $inToCompare = mySubString($s, $offset, $_);
	say $inToCompare;
	my $fibonacci = isfibonacci($inToCompare);
	push @matched, "Matched: $inToCompare" if ($fibonacci);
    }
    return \@matched if $matched[0];
}

my %HoA;
my @AoA;
my $string = '377';
for (1..length($string)) {
    my $fibonacci = fibonacciCompare($string, 0);
    push @AoA, $fibonacci;
    $HoA{$string} = $fibonacci;
    $string = substr $string, 1;
}

print Dumper \@AoA;
print Dumper \%HoA;

__END__

$ perl test.pl
3
37
377
7
77
7
$VAR1 = [
          [
            'Matched: 3',
            'Matched: 377'
          ],
          undef,
          undef
        ];
$VAR1 = {
          '77' => undef,
          '7' => undef,
          '377' => [
                     'Matched: 3',
                     'Matched: 377'
                   ]
        };