>use vars qw(@body_item->{'body'},@head);

カンマ区切りじゃなくて、半角スペース区切りだろ