open my $filea, "<", "Population.txt" or die "Cannot open: $!\n";

my @Data = <$filea>;