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