open my $data, '+<', $INFILE1 or die "can't open\n$INFILE1\n";
    while (<$data>) {
    ...;
    my ( $data ) = split (',',) ;
    ...
    close $data or die "can't close\n$INFILE1\n"; 
}