open FH5, ">>tagfile1" or die "error in reading..debug 1"; print FH5 Dumper($data1) or die $!;