>>21
$printの中身を表示するコードがforeachループに外にあるのは間違いでしょう。