sub update_lcrecord_now {

my ($lcid,$lcroadname,$lcroadnumber,$locotype,$lcowner,$lcinterrr,$lcassign) = @_;

open my $lcinfile, '<',"$rrconfig::locodata" or die $!;
open my $lcinfile2, '<',"$rrconfig::availlocodata" or die $!;
open my $lcinfile3, '<',"$rrconfig::availlocoyng" or die $!;

open my $lcoutfile, '>', "$rrconfig::locotemp" or die $!;
open my $lcoutfile2, '>', "$rrconfig::availlocotemp" or die $!;
open my $lcoutfile3, '>', "$rrconfig::availynglocotemp" or die $!;


while (<$lcinfile>) {

s/^$lcid\:.*/$lcid\:$lcroadname\:$lcroadnumber\:$locotype\:$lcowner\:$lcinterrr\:$lcassign/g;

print $lcoutfile $_;
}

while (<$lcinfile2>) {

s/^$lcid\:.*/$lcid\:$lcroadname\:$lcroadnumber\:$locotype\:$lcowner\:$lcinterrr\:$lcassign/g;

print $lcoutfile2 $_;
}

# DOESN'T WORK
while (<$lcinfile3>) {

s/^$lcid\:.*/$lcid\:$lcroadname\:$lcroadnumber\:$locotype\:$lcowner\:$lcinterrr\:$lcassign/g;

print $lcoutfile3 $_;
}

close $lcinfile;
close $lcinfile2;
close $lcinfile3; # DOESN'TT WORK

close $lcoutfile;
close $lcoutfile2;
close $lcoutfile3; # DOESN'T WORK

move "$rrconfig::locotemp", "$rrconfig::locodata" or die "move failed: $!";
move "$rrconfig::availlocotemp", "$rrconfig::availlocodata" or die "move failed: $!";
move "$rrconfig::availynglocotemp", "$rrconfig::availlocoyng" or die "move failed: $!"; # DOESN'T WORK

}