#!/usr/bin/perl
use strict;
use Math::BigFloat;
	Math::BigFloat->accuracy(20);
	
sub simulate_lifespan{
	my $r = Math::BigFloat->new($_[0]);
	my $org_muv = Math::BigFloat->new($_[1]);
	my $org_muy = Math::BigFloat->new($_[2]);
	my $scaler = Math::BigFloat->new($_[3]);
	my $ext_death = Math::BigFloat->new($_[4]);

	my $lifetime_fitness = Math::BigFloat->new(0);
	my $log_lifetime_fitness = $lifetime_fitness->copy();
	$log_lifetime_fitness ->blog();
	my @return_array = ($time, $log_lifetime_fitness, $mean_v, $mean_y);
	return \@return_array;
}