my @words = split /,/, $string;

##</code><code>##

  # find out information about the entire array
  print "found " . scalar( @words ) . " words\n";

  # do stuff with each member of the array
  foreach my $word ( @words ) { print "  word: $word\n"; }