#!/usr/bin/perl

use strict;
use warnings;
use Math::Big qw/fibonacci/;
use Memoize;
memoize('fib', INSTALL => 'fastfib');

my $n = '1000';
print fib(), "\n";

sub fib {
    foreach  ($n) {
        my @fibonacci = fibonacci($n);
        print "$fibonacci[$n-1]", "\n";
    }
}