>>983
>&send_item2(3, $m{ite});

とりあえず、斜め見ただけでもここは
&send_item2($m, 3, $m{ite});
じゃねーのか？

それにしても、すっげー、気持ち悪いコード。
元コードがそれなら、悪癖が付くだけだから今すぐ止めるのをお勧めする。
勉強の為なら、1から rewrite すれば良いかも知れん。