open A, ">>$a";
print A "$E\n";
close A;