open (A, "FileA") || die "$!\n";
open (B, "FileB") || die "$!\n";
while (my @FILEA=<A>) {
  foreach my $line(@FILEA){
     my ($nameA, $machine, $laston)=split(/,/,$line);