Select Code to Download

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

my @Data = <$filea>;

# ...

foreach my $line (@Data) {
    # do something with $line
}

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

while(<$filea>) {
    # do something with $_
}