open my $fh, "<", $DataIn or die "Couldn't open '$DataIn': $!";

while (<$fh>) {
    ...