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

    my @Data;
    @Data = <FILEA>;