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

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