Select Code to Download

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

    my @Data;
    @Data = <FILEA>;

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