open my($fh), '<' , \$stringOfCsv;
...