open(MYINPUTFILE, ") { my $out = `grep -i "$_" /home/file.csv`; open(OUTPUT, ">>/tmp/file.report"); print OUTPUT "$out\n"; } close(MYINPUTFILE); close(OUTPUT);