sub randompick_infect { 
        my $range = $pop;
	$rand = int(rand($range));
	print "$rand\n";
	$pop[$rand]{status} = 1;
	}
print "How many random infections? \n";
my $answerinfect = <>;
for ($i=1; $i<$answerinfect; $i++){
	randompick_infect;
	$firstcontact = $rand;
	print "first contact $firstcontact\n";
	do{ 
        randompick_infect;
	$secondcontact = $rand;
	print "second contact $secondcontact\n";
		if ($secondcontact == $firstcontact){
			randompick_infect;		
			}
		else {
			$j=-1;
			}
		}while($j!=-1);
	}
printarray;
print "You have infected $answerinfect people.\n";