while (<$file1>)
   {
      chomp;
      my $data1 = (split /,/)[0];
      # ...