Select Code to Download

use strict;
use warnings;
...

untie(@file1);
untie(@file2);

output:

E|123|r|some|56|78|90
D|678|r|some|56|78|90
F|345|r|y|98|0|0