#! / usr/bin/perl

{fib(0,1)};

for (1...23){
fib ($sum ,$val0) ;
print " fibonaci number $_ is $sum \n";
}

sub fib{
($val0, $val1) =@_;
$sum= $val0 + $val1;
}