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