#!/usr/local/bin/perl
#!/usr/bin/perl
use 5.010;
use strict;
use warnings;
use Memoize;
use bignum lib => 'GMP';

memoize('fibonacci');

sub fibonacci {
    my $n = shift;
        $n == 0 ? 0
      : $n == 1 ? 1
      :           fibonacci( $n - 2 ) + fibonacci( $n - 1 );
}

say "F($_) = ", fibonacci($_) for 1..500;