open(FILEA, "<", "Population.txt") or die("Cannot open: $!\n");

	my @Data;
	@Data = <FILEA>;

##</code><code>##

$Data[0] = "$PopA";
	$Data[1] = "$PopB";