@grepedarray = grep { /win/ and s/win/BIG/ } @array;

$cnt = grep(/win/,@array);

print "大文字\n@grepedarray\n計$cnt個\n";

この文で＄cntの部分が　計0個とでてしまんですが何が問題なんでしょう？