open(DATA, "$db") || die "Can not open: $!\n"; my @dat = (); close(DATA); open(DATA, "$db") || die "NO GO: $!\n";