fib.pl

use v5.16;
use strict;
use warnings;

sub fib {
    my $n = shift;
    if ($n == 0 || $n == 1) {
        return $n;
    }else{
        return fib($n-1) + fib($n-2);
    }
}

say join(', ', map { fib($_) } 1..10);