open my $data, '+<', $INFILE1 or die "can't open\n$INFILE1\n";
    while (<$data>) {
	chomp;
    my ( $data ) = split (',',) ;
    if ($data ne ""){
	
	print "$_ \n";
next;
   }
   close $data or die "can't close\n$INFILE1\n"; 
}