open(my $data_fh, '<', $data_file_name)
   or die("Unable to open data file \"$data_file_name\": $!\n");

while (my $line = <$data_fh>) {
.
.
.