> # Replacement code :-) > > # > # Read the Cloneids into an array called ids > # > while ($line = <CLONEIDSLIST>) { > chop($line); > push(@ids, split(/, /, $line)); > } Just for fun, I like: while(<CLONEIDSLIST>) { push(@ids, eval); } ==== Want to unsubscribe from Fun With Perl? ==== Well, if you insist... Send mail with body "unsubscribe" to ==== fwp-request@technofile.org