use Fcntl 'O_RDWR';

for my $id ( @row ) {
    my $fname = "../XML/$id.xml";
    
    next if not -e $fname;

    tie my @array, 'Tie::File', $fname, mode => O_RDWR; 
    splice @array, 2, 0, "<database_id=\"gl:redunant\">";
    untie @array;
}