sub fibonacci 
{
  my ( $pop ) = @_;
  if ($pop < 1) 
  { 
    return 1; 
  }
  
  else 
  {
     fibonacci($pop - 1) + fibonacci($pop - 2);
  }
}