print "Enter the number you would like to see in the sequence: ";
my $number = <STDIN>;

&fibonacci($number); #calling the subrounting fibonacci with passing given number as argument
sub fibonacci {
  my $a = 0;
  my $b = 1;

  # So now we see the parameter being used here. For clarity, I have written the for
  # loop using $n like the other examples. To set $n using the first parameter passed
  # to the subroutine, I access the scalar variable $_[0], which is the first element
  # of the parameter array @_

 my $n = $_[0];

  for (my $i=0;$i<$n;$i++){ #for loop to traverse and find the sum of the value
    printf "%d\n", $a;
    my $sum = $a + $b;
    $a = $b;
    $b = $sum;
  }
}