my @rows = `cat file.csv | awk -F';' '{if ($3==1) print $0}'`;
my $lines= join("\n",@rows );
printlog("string: $lines");