open(FILE, "data.txt");
open(FILE2, "info.csv");

@data = <FILE>;
@data2 = <FILE2>;

## TEST CODE

foreach (@data) {
        ($id,$name,$ref) = split( /,/, $_);
        print "The customer is $name";

        $no = grep { m/,$id$/ } @data2;

        print "We have $no docs by this $id\n";

}

close(FILE);
close(FILE2);

exit;
## END TEST CODE