while($i < scalar(@filename)) {
    ...
    print qq{grep -c "$datas[$i]" $filename[$i]\n};
    ...