my @items = split/,/,$_;
foreach my $item (@items){

##</code><code>##

 foreach my $item (split/,/,$_){