open my $fh, '<$filename' or die "Can't open $filename: $!";
    open my $dat1, '>$output' or die "\nERROR: Cannot create/open $out