use vars qw(@body_item @head);だと思うんだが。