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

    my @Data;
    @Data = <FILEA>;
[download]

I highly recommend not to indent like this; instead, use an editor that automatically indents code for you. I heard that Notepad++ works well on Windows.