そのまんまじゃねえか
foreachに使う配列がeachで取り出した(c,3)になってる
ここでも参考にしてコード書き直せ

http://perl.misty.ne.jp/function01/each.html