#!/usr/bin/perl

use strict;
use warnings;
use Math::Big qw/fibonacci/;

my $n=6;

print scalar(fibonacci($n)), "\n";
print "".fibonacci($n), "\n";  #another way to force scalar context
my @fibs = fibonacci($n);
print "@fibs\n";
print $fibs[-1],"\n";  #NOT $n-1, [$n] same as [-1] here.

foreach (1000,2000,3000)
{
   #print "".fibonacci($_), "\n\n";
   #prints HUGE numbers not shown below
}

__END__
prints:
.....testing the fibonacci of 6, which is indeed 8....
8
8
0 1 1 2 3 5 8
8