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